home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tk4.0p3.patch < prev   
Text File  |  1995-11-27  |  85KB  |  2,850 lines
  1. Prereq: "4.0p2"
  2. *** ../tk4.0p2/patchlevel.h    Mon Sep 18 11:42:16 1995
  3. --- patchlevel.h    Mon Nov 27 09:03:15 1995
  4. ***************
  5. *** 17,23 ****
  6.    * See the file "license.terms" for information on usage and redistribution
  7.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  8.    *
  9. !  * @(#) patchlevel.h 1.9 95/09/18 11:42:14
  10.    */
  11.   
  12. ! #define TK_PATCH_LEVEL "4.0p2"
  13. --- 17,23 ----
  14.    * See the file "license.terms" for information on usage and redistribution
  15.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16.    *
  17. !  * @(#) patchlevel.h 1.10 95/11/27 09:03:19
  18.    */
  19.   
  20. ! #define TK_PATCH_LEVEL "4.0p3"
  21. *** ../tk4.0p2/./Makefile.in    Mon Sep 18 13:28:27 1995
  22. --- ./Makefile.in    Mon Nov 27 13:22:35 1995
  23. ***************
  24. *** 5,11 ****
  25.   # "autoconf" program (constructs like "@foo@" will get replaced in the
  26.   # actual Makefile.
  27.   #
  28. ! # @(#) Makefile.in 1.39 95/06/30 11:18:46
  29.   
  30.   # Current Tk version;  used in various names.
  31.   
  32. --- 5,11 ----
  33.   # "autoconf" program (constructs like "@foo@" will get replaced in the
  34.   # actual Makefile.
  35.   #
  36. ! # @(#) Makefile.in 1.41 95/11/19 16:15:24
  37.   
  38.   # Current Tk version;  used in various names.
  39.   
  40. *** ../tk4.0p2/./tkBind.c    Sun Jun  4 17:37:04 1995
  41. --- ./tkBind.c    Mon Sep 25 13:19:01 1995
  42. ***************
  43. *** 11,17 ****
  44.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  45.    */
  46.   
  47. ! static char sccsid[] = "@(#) tkBind.c 1.98 95/06/04 17:37:03";
  48.   
  49.   #include "tkPort.h"
  50.   #include "tkInt.h"
  51. --- 11,17 ----
  52.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  53.    */
  54.   
  55. ! static char sccsid[] = "@(#) tkBind.c 1.100 95/09/25 13:18:59";
  56.   
  57.   #include "tkPort.h"
  58.   #include "tkInt.h"
  59. *** ../tk4.0p2/./tkColor.c    Sat Mar 18 15:43:46 1995
  60. --- ./tkColor.c    Tue Sep 26 17:11:24 1995
  61. ***************
  62. *** 12,18 ****
  63.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  64.    */
  65.   
  66. ! static char sccsid[] = "@(#) tkColor.c 1.36 95/03/18 15:43:38";
  67.   
  68.   #include "tkPort.h"
  69.   #include "tk.h"
  70. --- 12,18 ----
  71.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  72.    */
  73.   
  74. ! static char sccsid[] = "@(#) tkColor.c 1.37 95/09/26 17:11:23";
  75.   
  76.   #include "tkPort.h"
  77.   #include "tk.h"
  78. ***************
  79. *** 547,556 ****
  80.   {
  81.       TkStressedCmap *stressPtr;
  82.       float tmp, distance, closestDistance;
  83. !     int i, closest;
  84.       XColor *colorPtr;
  85.       TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
  86.       Colormap colormap = Tk_Colormap(tkwin);
  87.   
  88.       /*
  89.        * Find the TkStressedCmap structure for this colormap, or create
  90. --- 547,557 ----
  91.   {
  92.       TkStressedCmap *stressPtr;
  93.       float tmp, distance, closestDistance;
  94. !     int i, closest, numFound;
  95.       XColor *colorPtr;
  96.       TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
  97.       Colormap colormap = Tk_Colormap(tkwin);
  98. +     XVisualInfo template, *visInfoPtr;
  99.   
  100.       /*
  101.        * Find the TkStressedCmap structure for this colormap, or create
  102. ***************
  103. *** 561,567 ****
  104.       if (stressPtr == NULL) {
  105.           stressPtr = (TkStressedCmap *) ckalloc(sizeof(TkStressedCmap));
  106.           stressPtr->colormap = colormap;
  107. !         stressPtr->numColors = 1<<Tk_Depth(tkwin);
  108.           stressPtr->colorPtr = (XColor *) ckalloc((unsigned)
  109.               (stressPtr->numColors * sizeof(XColor)));
  110.           for (i = 0; i  < stressPtr->numColors; i++) {
  111. --- 562,574 ----
  112.       if (stressPtr == NULL) {
  113.           stressPtr = (TkStressedCmap *) ckalloc(sizeof(TkStressedCmap));
  114.           stressPtr->colormap = colormap;
  115. !         template.visualid = XVisualIDFromVisual(Tk_Visual(tkwin));
  116. !         visInfoPtr = XGetVisualInfo(Tk_Display(tkwin),
  117. !             VisualIDMask, &template, &numFound);
  118. !         if (numFound != 1) {
  119. !         panic("FindClosestColor couldn't lookup visual");
  120. !         }
  121. !         stressPtr->numColors = visInfoPtr->colormap_size;
  122.           stressPtr->colorPtr = (XColor *) ckalloc((unsigned)
  123.               (stressPtr->numColors * sizeof(XColor)));
  124.           for (i = 0; i  < stressPtr->numColors; i++) {
  125. *** ../tk4.0p2/./tkMain.c    Thu Jun  8 11:43:05 1995
  126. --- ./tkMain.c    Mon Sep 25 14:33:55 1995
  127. ***************
  128. *** 14,20 ****
  129.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  130.    */
  131.   
  132. ! static char sccsid[] = "@(#) tkMain.c 1.114 95/06/08 11:43:00";
  133.   
  134.   #include <ctype.h>
  135.   #include <stdio.h>
  136. --- 14,20 ----
  137.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  138.    */
  139.   
  140. ! static char sccsid[] = "@(#) tkMain.c 1.115 95/09/25 14:33:57";
  141.   
  142.   #include <ctype.h>
  143.   #include <stdio.h>
  144. ***************
  145. *** 64,69 ****
  146. --- 64,70 ----
  147.   static char *name = NULL;
  148.   static char *display = NULL;
  149.   static char *geometry = NULL;
  150. + static int rest = 0;
  151.   
  152.   static Tk_ArgvInfo argTable[] = {
  153.       {"-display", TK_ARGV_STRING, (char *) NULL, (char *) &display,
  154. ***************
  155. *** 74,79 ****
  156. --- 75,82 ----
  157.       "Name to use for application"},
  158.       {"-sync", TK_ARGV_CONSTANT, (char *) 1, (char *) &synchronize,
  159.       "Use synchronous mode for display server"},
  160. +     {"--", TK_ARGV_REST, (char *) 1, (char *) &rest,
  161. +     "Pass all remaining arguments through to script"},
  162.       {(char *) NULL, TK_ARGV_END, (char *) NULL, (char *) NULL,
  163.       (char *) NULL}
  164.   };
  165. *** ../tk4.0p2/./tkPack.c    Sun May 28 14:02:36 1995
  166. --- ./tkPack.c    Fri Nov 24 17:52:10 1995
  167. ***************
  168. *** 11,17 ****
  169.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  170.    */
  171.   
  172. ! static char sccsid[] = "@(#) tkPack.c 1.54 95/05/28 14:02:32";
  173.   
  174.   #include "tkPort.h"
  175.   #include "tkInt.h"
  176. --- 11,17 ----
  177.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  178.    */
  179.   
  180. ! static char sccsid[] = "@(#) tkPack.c 1.56 95/11/24 17:52:11";
  181.   
  182.   #include "tkPort.h"
  183.   #include "tkInt.h"
  184. ***************
  185. *** 770,776 ****
  186.           if (abort) {
  187.               goto done;
  188.           }
  189. !         Tk_MapWindow(slavePtr->tkwin);
  190.           }
  191.       } else {
  192.           if ((width <= 0) || (height <= 0)) {
  193. --- 770,784 ----
  194.           if (abort) {
  195.               goto done;
  196.           }
  197. ! 
  198. !         /*
  199. !          * Don't map the slave if the master isn't mapped: wait
  200. !          * until the master gets mapped later.
  201. !          */
  202. ! 
  203. !         if (Tk_IsMapped(masterPtr->tkwin)) {
  204. !             Tk_MapWindow(slavePtr->tkwin);
  205. !         }
  206.           }
  207.       } else {
  208.           if ((width <= 0) || (height <= 0)) {
  209. ***************
  210. *** 1351,1356 ****
  211. --- 1359,1388 ----
  212.       }
  213.       packPtr->tkwin = NULL;
  214.       Tk_EventuallyFree((ClientData) packPtr, DestroyPacker);
  215. +     } else if (eventPtr->type == MapNotify) {
  216. +     /*
  217. +      * When a master gets mapped, must redo the geometry computation
  218. +      * so that all of its slaves get remapped.
  219. +      */
  220. + 
  221. +     if ((packPtr->slavePtr != NULL)
  222. +         && !(packPtr->flags & REQUESTED_REPACK)) {
  223. +         packPtr->flags |= REQUESTED_REPACK;
  224. +         Tk_DoWhenIdle(ArrangePacking, (ClientData) packPtr);
  225. +     }
  226. +     } else if (eventPtr->type == UnmapNotify) {
  227. +     Packer *packPtr2;
  228. + 
  229. +     /*
  230. +      * Unmap all of the slaves when the master gets unmapped,
  231. +      * so that they don't bother to keep redisplaying
  232. +      * themselves.
  233. +      */
  234. + 
  235. +     for (packPtr2 = packPtr->slavePtr; packPtr2 != NULL;
  236. +         packPtr2 = packPtr2->nextPtr) {
  237. +         Tk_UnmapWindow(packPtr2->tkwin);
  238. +     }
  239.       }
  240.   }
  241.   
  242. ***************
  243. *** 1629,1635 ****
  244.   
  245.       /*
  246.        * Make sure that the slave's parent is either the master or
  247. !      * an ancestor of the master.
  248.        */
  249.       
  250.       parent = Tk_Parent(slave);
  251. --- 1661,1668 ----
  252.   
  253.       /*
  254.        * Make sure that the slave's parent is either the master or
  255. !      * an ancestor of the master, and that the master and slave
  256. !      * aren't the same.
  257.        */
  258.       
  259.       parent = Tk_Parent(slave);
  260. ***************
  261. *** 1643,1648 ****
  262. --- 1676,1686 ----
  263.               (char *) NULL);
  264.           return TCL_ERROR;
  265.           }
  266. +     }
  267. +     if (slave == masterPtr->tkwin) {
  268. +         Tcl_AppendResult(interp, "can't pack ", argv[j],
  269. +             " inside itself", (char *) NULL);
  270. +         return TCL_ERROR;
  271.       }
  272.   
  273.       /*
  274. *** ../tk4.0p2/./tkPlace.c    Sun Jun  4 14:23:52 1995
  275. --- ./tkPlace.c    Mon Nov 27 09:25:57 1995
  276. ***************
  277. *** 11,17 ****
  278.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  279.    */
  280.   
  281. ! static char sccsid[] = "@(#) tkPlace.c 1.21 95/06/04 14:23:50";
  282.   
  283.   #include "tkPort.h"
  284.   #include "tkInt.h"
  285. --- 11,17 ----
  286.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  287.    */
  288.   
  289. ! static char sccsid[] = "%Z% %M% %I% %E% %U%";
  290.   
  291.   #include "tkPort.h"
  292.   #include "tkInt.h"
  293. ***************
  294. *** 553,559 ****
  295.   
  296.           /*
  297.            * Make sure that the new master is either the logical parent
  298. !          * of the slave or a descendant of that window.
  299.            */
  300.   
  301.           for (ancestor = tkwin; ; ancestor = Tk_Parent(ancestor)) {
  302. --- 553,560 ----
  303.   
  304.           /*
  305.            * Make sure that the new master is either the logical parent
  306. !          * of the slave or a descendant of that window, and that the
  307. !          * master and slave aren't the same.
  308.            */
  309.   
  310.           for (ancestor = tkwin; ; ancestor = Tk_Parent(ancestor)) {
  311. ***************
  312. *** 568,573 ****
  313. --- 569,581 ----
  314.               goto done;
  315.           }
  316.           }
  317. +         if (slavePtr->tkwin == tkwin) {
  318. +         Tcl_AppendResult(interp, "can't place ",
  319. +             Tk_PathName(slavePtr->tkwin), " relative to itself",
  320. +             (char *) NULL);
  321. +         result = TCL_ERROR;
  322. +         goto done;
  323. +         }
  324.           if ((slavePtr->masterPtr != NULL)
  325.               && (slavePtr->masterPtr->tkwin == tkwin)) {
  326.           /*
  327. ***************
  328. *** 847,853 ****
  329.               || (height != Tk_Height(slavePtr->tkwin))) {
  330.           Tk_MoveResizeWindow(slavePtr->tkwin, x, y, width, height);
  331.           }
  332. !         Tk_MapWindow(slavePtr->tkwin);
  333.       } else {
  334.           if ((width <= 0) || (height <= 0)) {
  335.           Tk_UnmaintainGeometry(slavePtr->tkwin, masterPtr->tkwin);
  336. --- 855,869 ----
  337.               || (height != Tk_Height(slavePtr->tkwin))) {
  338.           Tk_MoveResizeWindow(slavePtr->tkwin, x, y, width, height);
  339.           }
  340. ! 
  341. !         /*
  342. !          * Don't map the slave unless the master is mapped: the slave
  343. !          * will get mapped later, when the master is mapped.
  344. !          */
  345. ! 
  346. !         if (Tk_IsMapped(masterPtr->tkwin)) {
  347. !         Tk_MapWindow(slavePtr->tkwin);
  348. !         }
  349.       } else {
  350.           if ((width <= 0) || (height <= 0)) {
  351.           Tk_UnmaintainGeometry(slavePtr->tkwin, masterPtr->tkwin);
  352. ***************
  353. *** 907,912 ****
  354. --- 923,949 ----
  355.       }
  356.       masterPtr->tkwin = NULL;
  357.       ckfree((char *) masterPtr);
  358. +     } else if (eventPtr->type == MapNotify) {
  359. +     /*
  360. +      * When a master gets mapped, must redo the geometry computation
  361. +      * so that all of its slaves get remapped.
  362. +      */
  363. + 
  364. +     if ((masterPtr->slavePtr != NULL)
  365. +         && !(masterPtr->flags & PARENT_RECONFIG_PENDING)) {
  366. +         masterPtr->flags |= PARENT_RECONFIG_PENDING;
  367. +         Tk_DoWhenIdle(RecomputePlacement, (ClientData) masterPtr);
  368. +     }
  369. +     } else if (eventPtr->type == UnmapNotify) {
  370. +     /*
  371. +      * Unmap all of the slaves when the master gets unmapped,
  372. +      * so that they don't keep redisplaying themselves.
  373. +      */
  374. + 
  375. +     for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
  376. +         slavePtr = slavePtr->nextPtr) {
  377. +         Tk_UnmapWindow(slavePtr->tkwin);
  378. +     }
  379.       }
  380.   }
  381.   
  382. *** ../tk4.0p2/./tkSend.c    Mon Aug 21 10:49:15 1995
  383. --- ./tkSend.c    Thu Nov  9 10:29:11 1995
  384. ***************
  385. *** 12,18 ****
  386.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  387.    */
  388.   
  389. ! static char sccsid[] = "@(#) tkSend.c 1.50 95/08/21 10:49:10";
  390.   
  391.   #include "tkPort.h"
  392.   #include "tkInt.h"
  393. --- 12,18 ----
  394.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  395.    */
  396.   
  397. ! static char sccsid[] = "@(#) tkSend.c 1.51 95/11/09 10:29:13";
  398.   
  399.   #include "tkPort.h"
  400.   #include "tkInt.h"
  401. ***************
  402. *** 1219,1226 ****
  403.                    * interpreter is needed anyway). */
  404.       TkDisplay *dispPtr;        /* Display to initialize. */
  405.   {
  406. -     TkMainInfo *mainPtr;
  407. -     TkWindow *winPtr;
  408.       XSetWindowAttributes atts;
  409.   
  410.       /*
  411. --- 1219,1224 ----
  412. ***************
  413. *** 1241,1268 ****
  414.       Tk_MakeWindowExist(dispPtr->commTkwin);
  415.   
  416.       /*
  417. -      * Find a window on the display to use for registering property
  418. -      * names.
  419. -      */
  420. - 
  421. -     for (mainPtr = tkMainWindowList; ; mainPtr = mainPtr->nextPtr) {
  422. -     if (mainPtr == NULL) {
  423. -         return TCL_OK;
  424. -     }
  425. -     if (mainPtr->winPtr->dispPtr == dispPtr) {
  426. -         winPtr = mainPtr->winPtr;
  427. -         break;
  428. -     }
  429. -     }
  430. - 
  431. -     /*
  432.        * Get atoms used as property names.
  433.        */
  434.   
  435. !     dispPtr->commProperty = Tk_InternAtom((Tk_Window) winPtr, "Comm");
  436. !     dispPtr->registryProperty = Tk_InternAtom((Tk_Window) winPtr,
  437.           "InterpRegistry");
  438. !     dispPtr->appNameProperty = Tk_InternAtom((Tk_Window) winPtr,
  439.           "TK_APPLICATION");
  440.   
  441.       return TCL_OK;
  442. --- 1239,1251 ----
  443.       Tk_MakeWindowExist(dispPtr->commTkwin);
  444.   
  445.       /*
  446.        * Get atoms used as property names.
  447.        */
  448.   
  449. !     dispPtr->commProperty = Tk_InternAtom(dispPtr->commTkwin, "Comm");
  450. !     dispPtr->registryProperty = Tk_InternAtom(dispPtr->commTkwin,
  451.           "InterpRegistry");
  452. !     dispPtr->appNameProperty = Tk_InternAtom(dispPtr->commTkwin,
  453.           "TK_APPLICATION");
  454.   
  455.       return TCL_OK;
  456. *** ../tk4.0p2/./tkVisual.c    Wed Aug 16 10:43:49 1995
  457. --- ./tkVisual.c    Sun Oct  1 16:35:39 1995
  458. ***************
  459. *** 12,18 ****
  460.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  461.    */
  462.   
  463. ! static char sccsid[] = "@(#) tkVisual.c 1.13 95/08/16 10:43:48";
  464.   
  465.   #include "tkInt.h"
  466.   #include "tkPort.h"
  467. --- 12,18 ----
  468.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  469.    */
  470.   
  471. ! static char sccsid[] = "@(#) tkVisual.c 1.14 95/10/01 16:35:38";
  472.   
  473.   #include "tkInt.h"
  474.   #include "tkPort.h"
  475. ***************
  476. *** 313,319 ****
  477.           cmapPtr->colormap = XCreateColormap(Tk_Display(tkwin),
  478.               RootWindowOfScreen(Tk_Screen(tkwin)), visual,
  479.               AllocNone);
  480. !         cmapPtr->visual = NULL;
  481.           cmapPtr->refCount = 1;
  482.           cmapPtr->shareable = 1;
  483.           cmapPtr->nextPtr = dispPtr->cmapPtr;
  484. --- 313,319 ----
  485.           cmapPtr->colormap = XCreateColormap(Tk_Display(tkwin),
  486.               RootWindowOfScreen(Tk_Screen(tkwin)), visual,
  487.               AllocNone);
  488. !         cmapPtr->visual = visual;
  489.           cmapPtr->refCount = 1;
  490.           cmapPtr->shareable = 1;
  491.           cmapPtr->nextPtr = dispPtr->cmapPtr;
  492. *** ../tk4.0p2/./tkWindow.c    Wed Jun  7 13:13:22 1995
  493. --- ./tkWindow.c    Mon Sep 25 13:19:01 1995
  494. ***************
  495. *** 13,19 ****
  496.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  497.    */
  498.   
  499. ! static char sccsid[] = "@(#) tkWindow.c 1.185 95/06/07 13:13:20";
  500.   
  501.   #include "tkPort.h"
  502.   #include "tkInt.h"
  503. --- 13,19 ----
  504.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  505.    */
  506.   
  507. ! static char sccsid[] = "@(#) tkWindow.c 1.187 95/09/25 13:18:57";
  508.   
  509.   #include "tkPort.h"
  510.   #include "tkInt.h"
  511. *** ../tk4.0p2/./tkWm.c    Mon Aug 21 10:49:16 1995
  512. --- ./tkWm.c    Mon Nov 27 13:02:34 1995
  513. ***************
  514. *** 13,19 ****
  515.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  516.    */
  517.   
  518. ! static char sccsid[] = "@(#) tkWm.c 1.108 95/08/21 10:49:12";
  519.   
  520.   #include "tkPort.h"
  521.   #include "tkInt.h"
  522. --- 13,19 ----
  523.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  524.    */
  525.   
  526. ! static char sccsid[] = "@(#) tkWm.c 1.111 95/11/27 13:02:37";
  527.   
  528.   #include "tkPort.h"
  529.   #include "tkInt.h"
  530. ***************
  531. *** 277,282 ****
  532. --- 277,284 ----
  533.   static int        ComputeReparentGeometry _ANSI_ARGS_((TkWindow *winPtr));
  534.   static void        ConfigureEvent _ANSI_ARGS_((TkWindow *winPtr,
  535.                   XConfigureEvent *eventPtr));
  536. + static void        GetMaxSize _ANSI_ARGS_((WmInfo *wmPtr,
  537. +                 int *maxWidthPtr, int *maxHeightPtr));
  538.   static int        ParseGeometry _ANSI_ARGS_((Tcl_Interp *interp,
  539.                   char *string, TkWindow *winPtr));
  540.   static void        ReparentEvent _ANSI_ARGS_((TkWindow *winPtr,
  541. ***************
  542. *** 349,356 ****
  543.        * a guess about how space is needed for window manager decorations.
  544.        */
  545.   
  546. !     wmPtr->maxWidth = DisplayWidth(winPtr->display, winPtr->screenNum) - 15;
  547. !     wmPtr->maxHeight = DisplayHeight(winPtr->display, winPtr->screenNum) - 30;
  548.       wmPtr->gridWin = NULL;
  549.       wmPtr->widthInc = wmPtr->heightInc = 1;
  550.       wmPtr->minAspect.x = wmPtr->minAspect.y = 1;
  551. --- 351,358 ----
  552.        * a guess about how space is needed for window manager decorations.
  553.        */
  554.   
  555. !     wmPtr->maxWidth = 0;
  556. !     wmPtr->maxHeight = 0;
  557.       wmPtr->gridWin = NULL;
  558.       wmPtr->widthInc = wmPtr->heightInc = 1;
  559.       wmPtr->minAspect.x = wmPtr->minAspect.y = 1;
  560. ***************
  561. *** 1348,1355 ****
  562.           return TCL_ERROR;
  563.       }
  564.       if (argc == 3) {
  565. !         sprintf(interp->result, "%d %d", wmPtr->maxWidth,
  566. !             wmPtr->maxHeight);
  567.           return TCL_OK;
  568.       }
  569.       if ((Tcl_GetInt(interp, argv[3], &width) != TCL_OK)
  570. --- 1350,1357 ----
  571.           return TCL_ERROR;
  572.       }
  573.       if (argc == 3) {
  574. !         GetMaxSize(wmPtr, &width, &height);
  575. !         sprintf(interp->result, "%d %d", width, height);
  576.           return TCL_OK;
  577.       }
  578.       if ((Tcl_GetInt(interp, argv[3], &width) != TCL_OK)
  579. ***************
  580. *** 1766,1775 ****
  581.        * in pixel units and there's no easy way to translate them to
  582.        * grid units since the new requested size of the top-level window in
  583.        * pixels may not yet have been registered yet (it may filter up
  584. !      * the hierarchy in DoWhenIdle handlers).
  585.        */
  586.   
  587. !     if (wmPtr->gridWin == NULL) {
  588.       wmPtr->width = -1;
  589.       wmPtr->height = -1;
  590.       }
  591. --- 1768,1780 ----
  592.        * in pixel units and there's no easy way to translate them to
  593.        * grid units since the new requested size of the top-level window in
  594.        * pixels may not yet have been registered yet (it may filter up
  595. !      * the hierarchy in DoWhenIdle handlers).  However, if the window
  596. !      * has never been mapped yet then just leave the window size alone:
  597. !      * assume that it is intended to be in grid units but just happened
  598. !      * to have been specified before this procedure was called.
  599.        */
  600.   
  601. !     if ((wmPtr->gridWin == NULL) && !(wmPtr->flags & WM_NEVER_MAPPED)) {
  602.       wmPtr->width = -1;
  603.       wmPtr->height = -1;
  604.       }
  605. ***************
  606. *** 2494,2499 ****
  607. --- 2499,2505 ----
  608.   {
  609.       register WmInfo *wmPtr = winPtr->wmInfoPtr;
  610.       XSizeHints *hintsPtr;
  611. +     int maxWidth, maxHeight;
  612.   
  613.       wmPtr->flags &= ~WM_UPDATE_SIZE_HINTS;
  614.   
  615. ***************
  616. *** 2508,2513 ****
  617. --- 2514,2520 ----
  618.        * our structure.
  619.        */
  620.   
  621. +     GetMaxSize(wmPtr, &maxWidth, &maxHeight);
  622.       if (wmPtr->gridWin != NULL) {
  623.       hintsPtr->base_width = winPtr->reqWidth
  624.           - (wmPtr->reqGridWidth * wmPtr->widthInc);
  625. ***************
  626. *** 2524,2537 ****
  627.       hintsPtr->min_height = hintsPtr->base_height
  628.           + (wmPtr->minHeight * wmPtr->heightInc);
  629.       hintsPtr->max_width = hintsPtr->base_width
  630. !         + (wmPtr->maxWidth * wmPtr->widthInc);
  631.       hintsPtr->max_height = hintsPtr->base_height
  632. !         + (wmPtr->maxHeight * wmPtr->heightInc);
  633.       } else {
  634.       hintsPtr->min_width = wmPtr->minWidth;
  635.       hintsPtr->min_height = wmPtr->minHeight;
  636. !     hintsPtr->max_width = wmPtr->maxWidth;
  637. !     hintsPtr->max_height = wmPtr->maxHeight;
  638.       hintsPtr->base_width = 0;
  639.       hintsPtr->base_height = 0;
  640.       }
  641. --- 2531,2544 ----
  642.       hintsPtr->min_height = hintsPtr->base_height
  643.           + (wmPtr->minHeight * wmPtr->heightInc);
  644.       hintsPtr->max_width = hintsPtr->base_width
  645. !         + (maxWidth * wmPtr->widthInc);
  646.       hintsPtr->max_height = hintsPtr->base_height
  647. !         + (maxHeight * wmPtr->heightInc);
  648.       } else {
  649.       hintsPtr->min_width = wmPtr->minWidth;
  650.       hintsPtr->min_height = wmPtr->minHeight;
  651. !     hintsPtr->max_width = maxWidth;
  652. !     hintsPtr->max_height = maxHeight;
  653.       hintsPtr->base_width = 0;
  654.       hintsPtr->base_height = 0;
  655.       }
  656. ***************
  657. *** 3756,3760 ****
  658. --- 3763,3833 ----
  659.           xPtr, yPtr, &mask) != True) {
  660.       *xPtr = -1;
  661.       *yPtr = -1;
  662. +     }
  663. + }
  664. + 
  665. + /*
  666. +  *----------------------------------------------------------------------
  667. +  *
  668. +  * GetMaxSize --
  669. +  *
  670. +  *    This procedure computes the current maxWidth and maxHeight
  671. +  *    values for a window, taking into account the possibility
  672. +  *    that they may be defaulted.
  673. +  *
  674. +  * Results:
  675. +  *    The values at *maxWidthPtr and *maxHeightPtr are filled
  676. +  *    in with the maximum allowable dimensions of wmPtr's window,
  677. +  *    in grid units.  If no maximum has been specified for the
  678. +  *    window, then this procedure computes the largest sizes that
  679. +  *    will fit on the screen.
  680. +  *
  681. +  * Side effects:
  682. +  *    None.
  683. +  *
  684. +  *----------------------------------------------------------------------
  685. +  */
  686. + 
  687. + static void
  688. + GetMaxSize(wmPtr, maxWidthPtr, maxHeightPtr)
  689. +     WmInfo *wmPtr;        /* Window manager information for the
  690. +                  * window. */
  691. +     int *maxWidthPtr;        /* Where to store the current maximum
  692. +                  * width of the window. */
  693. +     int *maxHeightPtr;        /* Where to store the current maximum
  694. +                  * height of the window. */
  695. + {
  696. +     int tmp;
  697. + 
  698. +     if (wmPtr->maxWidth > 0) {
  699. +     *maxWidthPtr = wmPtr->maxWidth;
  700. +     } else {
  701. +     /*
  702. +      * Must compute a default width.  Fill up the display, leaving a
  703. +      * bit of extra space for the window manager's borders.
  704. +      */
  705. + 
  706. +     tmp = DisplayWidth(wmPtr->winPtr->display, wmPtr->winPtr->screenNum)
  707. +         - 15;
  708. +     if (wmPtr->gridWin != NULL) {
  709. +         /*
  710. +          * Gridding is turned on;  convert from pixels to grid units.
  711. +          */
  712. + 
  713. +         tmp = wmPtr->reqGridWidth
  714. +             + (tmp - wmPtr->winPtr->reqWidth)/wmPtr->widthInc;
  715. +     }
  716. +     *maxWidthPtr = tmp;
  717. +     }
  718. +     if (wmPtr->maxHeight > 0) {
  719. +     *maxHeightPtr = wmPtr->maxHeight;
  720. +     } else {
  721. +     tmp = DisplayHeight(wmPtr->winPtr->display, wmPtr->winPtr->screenNum)
  722. +         - 30;
  723. +     if (wmPtr->gridWin != NULL) {
  724. +         tmp = wmPtr->reqGridHeight
  725. +             + (tmp - wmPtr->winPtr->reqHeight)/wmPtr->heightInc;
  726. +     }
  727. +     *maxHeightPtr = tmp;
  728.       }
  729.   }
  730. *** ../tk4.0p2/./tkButton.c    Sat Jul 22 16:05:26 1995
  731. --- ./tkButton.c    Mon Sep 25 14:56:28 1995
  732. ***************
  733. *** 13,19 ****
  734.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  735.    */
  736.   
  737. ! static char sccsid[] = "@(#) tkButton.c 1.120 95/07/22 16:05:25";
  738.   
  739.   #include "default.h"
  740.   #include "tkPort.h"
  741. --- 13,19 ----
  742.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  743.    */
  744.   
  745. ! static char sccsid[] = "@(#) tkButton.c 1.121 95/09/25 14:56:29";
  746.   
  747.   #include "default.h"
  748.   #include "tkPort.h"
  749. ***************
  750. *** 1311,1319 ****
  751.           y += butPtr->borderWidth;
  752.           dim -= 2*butPtr->borderWidth;
  753.           if (butPtr->flags & SELECTED) {
  754. !         XFillRectangle(butPtr->display, pixmap, Tk_3DBorderGC(tkwin,
  755. !             butPtr->selectBorder, TK_3D_FLAT_GC),
  756. !             x, y, (unsigned int) dim, (unsigned int) dim);
  757.           } else {
  758.           Tk_Fill3DRectangle(tkwin, pixmap, butPtr->normalBorder, x, y,
  759.               dim, dim, butPtr->borderWidth, TK_RELIEF_FLAT);
  760. --- 1311,1323 ----
  761.           y += butPtr->borderWidth;
  762.           dim -= 2*butPtr->borderWidth;
  763.           if (butPtr->flags & SELECTED) {
  764. !         GC gc;
  765. ! 
  766. !         gc = Tk_3DBorderGC(tkwin,(butPtr->selectBorder != NULL)
  767. !             ? butPtr->selectBorder : butPtr->normalBorder,
  768. !             TK_3D_FLAT_GC);
  769. !         XFillRectangle(butPtr->display, pixmap, gc, x, y,
  770. !             (unsigned int) dim, (unsigned int) dim);
  771.           } else {
  772.           Tk_Fill3DRectangle(tkwin, pixmap, butPtr->normalBorder, x, y,
  773.               dim, dim, butPtr->borderWidth, TK_RELIEF_FLAT);
  774. ***************
  775. *** 1333,1341 ****
  776.       points[3].x = points[1].x;
  777.       points[3].y = points[0].y - radius;
  778.       if (butPtr->flags & SELECTED) {
  779. !         XFillPolygon(butPtr->display, pixmap,
  780. !             Tk_3DBorderGC(tkwin, butPtr->selectBorder, TK_3D_FLAT_GC),
  781. !             points, 4, Convex, CoordModeOrigin);
  782.       } else {
  783.           Tk_Fill3DPolygon(tkwin, pixmap, butPtr->normalBorder, points,
  784.               4, butPtr->borderWidth, TK_RELIEF_FLAT);
  785. --- 1337,1349 ----
  786.       points[3].x = points[1].x;
  787.       points[3].y = points[0].y - radius;
  788.       if (butPtr->flags & SELECTED) {
  789. !         GC gc;
  790. ! 
  791. !         gc = Tk_3DBorderGC(tkwin, (butPtr->selectBorder != NULL)
  792. !             ? butPtr->selectBorder : butPtr->normalBorder,
  793. !             TK_3D_FLAT_GC);
  794. !         XFillPolygon(butPtr->display, pixmap, gc, points, 4, Convex,
  795. !             CoordModeOrigin);
  796.       } else {
  797.           Tk_Fill3DPolygon(tkwin, pixmap, butPtr->normalBorder, points,
  798.               4, butPtr->borderWidth, TK_RELIEF_FLAT);
  799. *** ../tk4.0p2/./tkEntry.c    Sun May 28 17:50:03 1995
  800. --- ./tkEntry.c    Tue Sep 26 13:33:15 1995
  801. ***************
  802. *** 12,18 ****
  803.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  804.    */
  805.   
  806. ! static char sccsid[] = "@(#) tkEntry.c 1.90 95/05/28 17:49:57";
  807.   
  808.   #include "default.h"
  809.   #include "tkPort.h"
  810. --- 12,18 ----
  811.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  812.    */
  813.   
  814. ! static char sccsid[] = "@(#) tkEntry.c 1.91 95/09/26 13:33:13";
  815.   
  816.   #include "default.h"
  817.   #include "tkPort.h"
  818. ***************
  819. *** 299,304 ****
  820. --- 299,305 ----
  821.                   Tcl_Interp *interp, char *name1, char *name2,
  822.                   int flags));
  823.   static void        EntryUpdateScrollbar _ANSI_ARGS_((Entry *entryPtr));
  824. + static void        EntryValueChanged _ANSI_ARGS_((Entry *entryPtr));
  825.   static void        EntryVisibleRange _ANSI_ARGS_((Entry *entryPtr,
  826.                   double *firstPtr, double *lastPtr));
  827.   static int        EntryWidgetCmd _ANSI_ARGS_((ClientData clientData,
  828. ***************
  829. *** 863,870 ****
  830.   
  831.       value = Tcl_GetVar(interp, entryPtr->textVarName, TCL_GLOBAL_ONLY);
  832.       if (value == NULL) {
  833. !         Tcl_SetVar(interp, entryPtr->textVarName, entryPtr->string,
  834. !             TCL_GLOBAL_ONLY);
  835.       } else {
  836.           EntrySetValue(entryPtr, value);
  837.       }
  838. --- 864,870 ----
  839.   
  840.       value = Tcl_GetVar(interp, entryPtr->textVarName, TCL_GLOBAL_ONLY);
  841.       if (value == NULL) {
  842. !         EntryValueChanged(entryPtr);
  843.       } else {
  844.           EntrySetValue(entryPtr, value);
  845.       }
  846. ***************
  847. *** 1334,1347 ****
  848.       if (entryPtr->insertPos >= index) {
  849.       entryPtr->insertPos += length;
  850.       }
  851. ! 
  852. !     if (entryPtr->textVarName != NULL) {
  853. !     Tcl_SetVar(entryPtr->interp, entryPtr->textVarName, entryPtr->string,
  854. !         TCL_GLOBAL_ONLY);
  855. !     }
  856. !     entryPtr->flags |= UPDATE_SCROLLBAR;
  857. !     EntryComputeGeometry(entryPtr);
  858. !     EventuallyRedraw(entryPtr);
  859.   }
  860.   
  861.   /*
  862. --- 1334,1340 ----
  863.       if (entryPtr->insertPos >= index) {
  864.       entryPtr->insertPos += length;
  865.       }
  866. !     EntryValueChanged(entryPtr);
  867.   }
  868.   
  869.   /*
  870. ***************
  871. *** 1427,1440 ****
  872.           entryPtr->insertPos = index;
  873.       }
  874.       }
  875.   
  876. !     if (entryPtr->textVarName != NULL) {
  877. !     Tcl_SetVar(entryPtr->interp, entryPtr->textVarName, entryPtr->string,
  878. !         TCL_GLOBAL_ONLY);
  879.       }
  880. !     entryPtr->flags |= UPDATE_SCROLLBAR;
  881. !     EntryComputeGeometry(entryPtr);
  882. !     EventuallyRedraw(entryPtr);
  883.   }
  884.   
  885.   /*
  886. --- 1420,1479 ----
  887.           entryPtr->insertPos = index;
  888.       }
  889.       }
  890. +     EntryValueChanged(entryPtr);
  891. + }
  892. + 
  893. + /*
  894. +  *----------------------------------------------------------------------
  895. +  *
  896. +  * EntryValueChanged --
  897. +  *
  898. +  *    This procedure is invoked when characters are inserted into
  899. +  *    an entry or deleted from it.  It updates the entry's associated
  900. +  *    variable, if there is one, and does other bookkeeping such
  901. +  *    as arranging for redisplay.
  902. +  *
  903. +  * Results:
  904. +  *    None.
  905. +  *
  906. +  * Side effects:
  907. +  *    None.
  908. +  *
  909. +  *----------------------------------------------------------------------
  910. +  */
  911.   
  912. ! static void
  913. ! EntryValueChanged(entryPtr)
  914. !     Entry *entryPtr;        /* Entry whose value just changed. */
  915. ! {
  916. !     char *newValue;
  917. ! 
  918. !     if (entryPtr->textVarName == NULL) {
  919. !     newValue = NULL;
  920. !     } else {
  921. !     newValue = Tcl_SetVar(entryPtr->interp, entryPtr->textVarName,
  922. !         entryPtr->string, TCL_GLOBAL_ONLY);
  923.       }
  924. ! 
  925. !     if ((newValue != NULL) && (strcmp(newValue, entryPtr->string) != 0)) {
  926. !     /*
  927. !      * The value of the variable is different than what we asked for.
  928. !      * This means that a trace on the variable modified it.  In this
  929. !      * case our trace procedure wasn't invoked since the modification
  930. !      * came while a trace was already active on the variable.  So,
  931. !      * update our value to reflect the variable's latest value.
  932. !      */
  933. ! 
  934. !     EntrySetValue(entryPtr, newValue);
  935. !     } else {
  936. !     /*
  937. !      * Arrange for redisplay.
  938. !      */
  939. ! 
  940. !     entryPtr->flags |= UPDATE_SCROLLBAR;
  941. !     EntryComputeGeometry(entryPtr);
  942. !     EventuallyRedraw(entryPtr);
  943. !     }
  944.   }
  945.   
  946.   /*
  947. *** ../tk4.0p2/./tkListbox.c    Tue Jul 25 12:50:15 1995
  948. --- ./tkListbox.c    Tue Sep 26 16:18:24 1995
  949. ***************
  950. *** 12,18 ****
  951.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  952.    */
  953.   
  954. ! static char sccsid[] = "@(#) tkListbox.c 1.97 95/07/25 12:50:13";
  955.   
  956.   #include "tkPort.h"
  957.   #include "default.h"
  958. --- 12,18 ----
  959.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  960.    */
  961.   
  962. ! static char sccsid[] = "@(#) tkListbox.c 1.99 95/09/26 16:18:22";
  963.   
  964.   #include "tkPort.h"
  965.   #include "default.h"
  966. ***************
  967. *** 790,796 ****
  968.           case TK_SCROLL_ERROR:
  969.               goto error;
  970.           case TK_SCROLL_MOVETO:
  971. !             offset = fraction*listPtr->maxWidth;
  972.               break;
  973.           case TK_SCROLL_PAGES:
  974.               windowUnits = windowWidth/listPtr->xScrollUnit;
  975. --- 790,796 ----
  976.           case TK_SCROLL_ERROR:
  977.               goto error;
  978.           case TK_SCROLL_MOVETO:
  979. !             offset = fraction*listPtr->maxWidth + 0.5;
  980.               break;
  981.           case TK_SCROLL_PAGES:
  982.               windowUnits = windowWidth/listPtr->xScrollUnit;
  983. ***************
  984. *** 835,841 ****
  985.           case TK_SCROLL_ERROR:
  986.               goto error;
  987.           case TK_SCROLL_MOVETO:
  988. !             index = listPtr->numElements*fraction;
  989.               break;
  990.           case TK_SCROLL_PAGES:
  991.               if (listPtr->fullLines > 2) {
  992. --- 835,841 ----
  993.           case TK_SCROLL_ERROR:
  994.               goto error;
  995.           case TK_SCROLL_MOVETO:
  996. !             index = listPtr->numElements*fraction + 0.5;
  997.               break;
  998.           case TK_SCROLL_PAGES:
  999.               if (listPtr->fullLines > 2) {
  1000. *** ../tk4.0p2/./tkMenubutton.c    Fri Jun  9 08:20:08 1995
  1001. --- ./tkMenubutton.c    Sun Nov 19 16:06:56 1995
  1002. ***************
  1003. *** 11,17 ****
  1004.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1005.    */
  1006.   
  1007. ! static char sccsid[] = "@(#) tkMenubutton.c 1.70 95/06/09 08:20:02";
  1008.   
  1009.   #include "tkPort.h"
  1010.   #include "default.h"
  1011. --- 11,17 ----
  1012.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1013.    */
  1014.   
  1015. ! static char sccsid[] = "@(#) tkMenubutton.c 1.71 95/11/19 16:06:57";
  1016.   
  1017.   #include "tkPort.h"
  1018.   #include "default.h"
  1019. ***************
  1020. *** 636,642 ****
  1021.   
  1022.       gcValues.font = mbPtr->fontPtr->fid;
  1023.       gcValues.background = Tk_3DBorderColor(mbPtr->normalBorder)->pixel;
  1024. !     if (mbPtr->disabledFg != NULL) {
  1025.       gcValues.foreground = mbPtr->disabledFg->pixel;
  1026.       mask = GCForeground|GCBackground|GCFont;
  1027.       } else {
  1028. --- 636,642 ----
  1029.   
  1030.       gcValues.font = mbPtr->fontPtr->fid;
  1031.       gcValues.background = Tk_3DBorderColor(mbPtr->normalBorder)->pixel;
  1032. !     if ((mbPtr->disabledFg != NULL) && (mbPtr->imageString == NULL)) {
  1033.       gcValues.foreground = mbPtr->disabledFg->pixel;
  1034.       mask = GCForeground|GCBackground|GCFont;
  1035.       } else {
  1036. ***************
  1037. *** 889,895 ****
  1038.        * foreground color, generate the stippled effect.
  1039.        */
  1040.   
  1041. !     if ((mbPtr->state == tkDisabledUid) && (mbPtr->disabledFg == NULL)) {
  1042.       XFillRectangle(mbPtr->display, pixmap, mbPtr->disabledGC,
  1043.           mbPtr->inset, mbPtr->inset,
  1044.           (unsigned) (Tk_Width(tkwin) - 2*mbPtr->inset),
  1045. --- 889,896 ----
  1046.        * foreground color, generate the stippled effect.
  1047.        */
  1048.   
  1049. !     if ((mbPtr->state == tkDisabledUid)
  1050. !         && ((mbPtr->disabledFg == NULL) || (mbPtr->image != NULL))) {
  1051.       XFillRectangle(mbPtr->display, pixmap, mbPtr->disabledGC,
  1052.           mbPtr->inset, mbPtr->inset,
  1053.           (unsigned) (Tk_Width(tkwin) - 2*mbPtr->inset),
  1054. *** ../tk4.0p2/./tkScale.c    Fri Jun  9 08:20:08 1995
  1055. --- ./tkScale.c    Sat Nov 25 22:47:14 1995
  1056. ***************
  1057. *** 18,24 ****
  1058.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1059.    */
  1060.   
  1061. ! static char sccsid[] = "@(#) tkScale.c 1.72 95/06/09 08:20:04";
  1062.   
  1063.   #include "tkPort.h"
  1064.   #include "default.h"
  1065. --- 18,24 ----
  1066.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1067.    */
  1068.   
  1069. ! static char sccsid[] = "@(#) tkScale.c 1.73 95/11/25 22:47:16";
  1070.   
  1071.   #include "tkPort.h"
  1072.   #include "default.h"
  1073. ***************
  1074. *** 722,728 ****
  1075.       if (stringValue != NULL) {
  1076.           value = strtod(stringValue, &end);
  1077.           if ((end != stringValue) && (*end == 0)) {
  1078. !         scalePtr->value = value;
  1079.           }
  1080.       }
  1081.       Tcl_TraceVar(interp, scalePtr->varName,
  1082. --- 722,728 ----
  1083.       if (stringValue != NULL) {
  1084.           value = strtod(stringValue, &end);
  1085.           if ((end != stringValue) && (*end == 0)) {
  1086. !         scalePtr->value = RoundToResolution(scalePtr, value);
  1087.           }
  1088.       }
  1089.       Tcl_TraceVar(interp, scalePtr->varName,
  1090. ***************
  1091. *** 1953,1972 ****
  1092.       Scale *scalePtr;        /* Information about scale widget. */
  1093.       double value;        /* Value to round. */
  1094.   {
  1095. !     double rem;
  1096.   
  1097.       if (scalePtr->resolution <= 0) {
  1098.       return value;
  1099.       }
  1100. !     rem = fmod(value, scalePtr->resolution);
  1101.       if (rem < 0) {
  1102. !     rem = scalePtr->resolution + rem;
  1103.       }
  1104. !     value -= rem;
  1105. !     if (rem >= scalePtr->resolution/2) {
  1106. !     value += scalePtr->resolution;
  1107. !     }
  1108. !     return value;
  1109.   }
  1110.   
  1111.   /*
  1112. --- 1953,1975 ----
  1113.       Scale *scalePtr;        /* Information about scale widget. */
  1114.       double value;        /* Value to round. */
  1115.   {
  1116. !     double rem, new;
  1117.   
  1118.       if (scalePtr->resolution <= 0) {
  1119.       return value;
  1120.       }
  1121. !     new = scalePtr->resolution * floor(value/scalePtr->resolution);
  1122. !     rem = value - new;
  1123.       if (rem < 0) {
  1124. !     if (rem <= -scalePtr->resolution/2) {
  1125. !         new -= scalePtr->resolution;
  1126. !     }
  1127. !     } else {
  1128. !     if (rem >= scalePtr->resolution/2) {
  1129. !         new += scalePtr->resolution;
  1130. !     }
  1131.       }
  1132. !     return new;
  1133.   }
  1134.   
  1135.   /*
  1136. ***************
  1137. *** 2033,2039 ****
  1138.       if ((end == stringValue) || (*end != 0)) {
  1139.           result = "can't assign non-numeric value to scale variable";
  1140.       } else {
  1141. !         scalePtr->value = value;
  1142.       }
  1143.   
  1144.       /*
  1145. --- 2036,2042 ----
  1146.       if ((end == stringValue) || (*end != 0)) {
  1147.           result = "can't assign non-numeric value to scale variable";
  1148.       } else {
  1149. !         scalePtr->value = RoundToResolution(scalePtr, value);
  1150.       }
  1151.   
  1152.       /*
  1153. *** ../tk4.0p2/./tkCanvas.c    Wed Aug 16 09:42:14 1995
  1154. --- ./tkCanvas.c    Fri Nov 24 15:46:15 1995
  1155. ***************
  1156. *** 12,18 ****
  1157.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1158.    */
  1159.   
  1160. ! static char sccsid[] = "@(#) tkCanvas.c 1.103 95/08/16 09:42:13";
  1161.   
  1162.   #include "default.h"
  1163.   #include "tkInt.h"
  1164. --- 12,18 ----
  1165.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1166.    */
  1167.   
  1168. ! static char sccsid[] = "@(#) tkCanvas.c 1.104 95/11/24 15:46:15";
  1169.   
  1170.   #include "default.h"
  1171.   #include "tkInt.h"
  1172. ***************
  1173. *** 2873,2879 ****
  1174.    * Side effects:
  1175.    *    The current item for canvasPtr may change.  If it does,
  1176.    *    then the commands associated with item entry and exit
  1177. !  *    could do just about anything.
  1178.    *
  1179.    *--------------------------------------------------------------
  1180.    */
  1181. --- 2873,2881 ----
  1182.    * Side effects:
  1183.    *    The current item for canvasPtr may change.  If it does,
  1184.    *    then the commands associated with item entry and exit
  1185. !  *    could do just about anything.  A binding script could
  1186. !  *    delete the canvas, so callers should protect themselves
  1187. !  *    with Tk_Preserve and Tk_Release.
  1188.    *
  1189.    *--------------------------------------------------------------
  1190.    */
  1191. ***************
  1192. *** 3109,3115 ****
  1193.    *    None.
  1194.    *
  1195.    * Side effects:
  1196. !  *    Depends on the bindings for the canvas.
  1197.    *
  1198.    *--------------------------------------------------------------
  1199.    */
  1200. --- 3111,3119 ----
  1201.    *    None.
  1202.    *
  1203.    * Side effects:
  1204. !  *    Depends on the bindings for the canvas.  A binding script
  1205. !  *    could delete the canvas, so callers should protect themselves
  1206. !  *    with Tk_Preserve and Tk_Release.
  1207.    *
  1208.    *--------------------------------------------------------------
  1209.    */
  1210. ***************
  1211. *** 3165,3172 ****
  1212.        * it was malloc-ed.
  1213.        */
  1214.   
  1215. !     Tk_BindEvent(canvasPtr->bindingTable, eventPtr, canvasPtr->tkwin,
  1216. !         numObjects, objectPtr);
  1217.       if (objectPtr != staticObjects) {
  1218.       ckfree((char *) objectPtr);
  1219.       }
  1220. --- 3169,3178 ----
  1221.        * it was malloc-ed.
  1222.        */
  1223.   
  1224. !     if (canvasPtr->tkwin != NULL) {
  1225. !     Tk_BindEvent(canvasPtr->bindingTable, eventPtr, canvasPtr->tkwin,
  1226. !         numObjects, objectPtr);
  1227. !     }
  1228.       if (objectPtr != staticObjects) {
  1229.       ckfree((char *) objectPtr);
  1230.       }
  1231. *** ../tk4.0p2/./tkCanvLine.c    Fri Jun  9 09:46:57 1995
  1232. --- ./tkCanvLine.c    Wed Oct 11 14:07:17 1995
  1233. ***************
  1234. *** 10,16 ****
  1235.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1236.    */
  1237.   
  1238. ! static char sccsid[] = "@(#) tkCanvLine.c 1.35 95/06/09 09:46:54";
  1239.   
  1240.   #include <stdio.h>
  1241.   #include "tkInt.h"
  1242. --- 10,16 ----
  1243.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1244.    */
  1245.   
  1246. ! static char sccsid[] = "@(#) tkCanvLine.c 1.36 95/10/11 14:07:14";
  1247.   
  1248.   #include <stdio.h>
  1249.   #include "tkInt.h"
  1250. ***************
  1251. *** 813,819 ****
  1252.                    * had to be treated as beveled after all
  1253.                    * because the angle was < 11 degrees. */
  1254.   
  1255. !     bestDist = 1.0e40;
  1256.   
  1257.       /*
  1258.        * Handle smoothed lines by generating an expanded set of points
  1259. --- 813,819 ----
  1260.                    * had to be treated as beveled after all
  1261.                    * because the angle was < 11 degrees. */
  1262.   
  1263. !     bestDist = 1.0e36;
  1264.   
  1265.       /*
  1266.        * Handle smoothed lines by generating an expanded set of points
  1267. *** ../tk4.0p2/./tkCanvPs.c    Fri Aug  4 10:05:09 1995
  1268. --- ./tkCanvPs.c    Thu Nov  9 11:34:10 1995
  1269. ***************
  1270. *** 12,18 ****
  1271.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1272.    */
  1273.   
  1274. ! static char sccsid[] = "@(#) tkCanvPs.c 1.36 95/08/04 10:05:08";
  1275.   
  1276.   #include <stdio.h>
  1277.   #include "tkInt.h"
  1278. --- 12,18 ----
  1279.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1280.    */
  1281.   
  1282. ! static char sccsid[] = "@(#) tkCanvPs.c 1.37 95/11/09 11:34:12";
  1283.   
  1284.   #include <stdio.h>
  1285.   #include "tkInt.h"
  1286. ***************
  1287. *** 722,728 ****
  1288.           }
  1289.           sprintf(pointString, "%.15g", size);
  1290.           Tcl_AppendResult(interp, "/", argv[0], " findfont ",
  1291. !             pointString, " scalefont setfont\n", (char *) NULL);
  1292.           Tcl_CreateHashEntry(&psInfoPtr->fontTable, argv[0], &i);
  1293.           ckfree((char *) argv);
  1294.           return TCL_OK;
  1295. --- 722,732 ----
  1296.           }
  1297.           sprintf(pointString, "%.15g", size);
  1298.           Tcl_AppendResult(interp, "/", argv[0], " findfont ",
  1299. !             pointString, " scalefont ", (char *) NULL);
  1300. !         if (strncasecmp(argv[0], "Symbol", 7) != 0) {
  1301. !         Tcl_AppendResult(interp, "ISOEncode ", (char *) NULL);
  1302. !         }
  1303. !         Tcl_AppendResult(interp, "setfont\n", (char *) NULL);
  1304.           Tcl_CreateHashEntry(&psInfoPtr->fontTable, argv[0], &i);
  1305.           ckfree((char *) argv);
  1306.           return TCL_OK;
  1307. ***************
  1308. *** 814,820 ****
  1309.       }
  1310.       sprintf(pointString, "%.15g", ((double) points)/10.0);
  1311.       Tcl_AppendResult(interp, "/", fontName, " findfont ",
  1312. !         pointString, " scalefont setfont\n", (char *) NULL);
  1313.       Tcl_CreateHashEntry(&psInfoPtr->fontTable, fontName, &i);
  1314.       return TCL_OK;
  1315.   
  1316. --- 818,828 ----
  1317.       }
  1318.       sprintf(pointString, "%.15g", ((double) points)/10.0);
  1319.       Tcl_AppendResult(interp, "/", fontName, " findfont ",
  1320. !         pointString, " scalefont ", (char *) NULL);
  1321. !     if (strcmp(fontName, "Symbol ") != 0) {
  1322. !     Tcl_AppendResult(interp, "ISOEncode ", (char *) NULL);
  1323. !     }
  1324. !     Tcl_AppendResult(interp, "setfont\n", (char *) NULL);
  1325.       Tcl_CreateHashEntry(&psInfoPtr->fontTable, fontName, &i);
  1326.       return TCL_OK;
  1327.   
  1328. *** ../tk4.0p2/./tkRectOval.c    Thu Mar 16 08:34:03 1995
  1329. --- ./tkRectOval.c    Sun Oct  1 16:28:51 1995
  1330. ***************
  1331. *** 11,17 ****
  1332.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1333.    */
  1334.   
  1335. ! static char sccsid[] = "@(#) tkRectOval.c 1.31 95/01/03 17:06:03";
  1336.   
  1337.   #include <stdio.h>
  1338.   #include "tk.h"
  1339. --- 11,17 ----
  1340.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1341.    */
  1342.   
  1343. ! static char sccsid[] = "@(#) tkRectOval.c 1.32 95/10/01 16:28:50";
  1344.   
  1345.   #include <stdio.h>
  1346.   #include "tk.h"
  1347. ***************
  1348. *** 455,462 ****
  1349.       } else {
  1350.       bloat = (rectOvalPtr->width+1)/2;
  1351.       }
  1352. !     rectOvalPtr->header.x1 = rectOvalPtr->bbox[0] - bloat;
  1353. !     rectOvalPtr->header.y1 = rectOvalPtr->bbox[1] - bloat;
  1354.       rectOvalPtr->header.x2 = rectOvalPtr->bbox[2] + bloat + 1;
  1355.       rectOvalPtr->header.y2 = rectOvalPtr->bbox[3] + bloat + 1;
  1356.   }
  1357. --- 455,469 ----
  1358.       } else {
  1359.       bloat = (rectOvalPtr->width+1)/2;
  1360.       }
  1361. ! 
  1362. !     /*
  1363. !      * Note:  add an extra pixel to the bounding box on all sides to
  1364. !      * account for rounding error (e.g. negative coords will be rounded
  1365. !      * differently than positive ones).
  1366. !      */
  1367. ! 
  1368. !     rectOvalPtr->header.x1 = rectOvalPtr->bbox[0] - bloat - 1;
  1369. !     rectOvalPtr->header.y1 = rectOvalPtr->bbox[1] - bloat - 1;
  1370.       rectOvalPtr->header.x2 = rectOvalPtr->bbox[2] + bloat + 1;
  1371.       rectOvalPtr->header.y2 = rectOvalPtr->bbox[3] + bloat + 1;
  1372.   }
  1373. *** ../tk4.0p2/./tkTrig.c    Fri Jun  9 09:46:57 1995
  1374. --- ./tkTrig.c    Wed Oct 11 14:07:17 1995
  1375. ***************
  1376. *** 13,19 ****
  1377.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1378.    */
  1379.   
  1380. ! static char sccsid[] = "@(#) tkTrig.c 1.21 95/06/09 09:46:57";
  1381.   
  1382.   #include <stdio.h>
  1383.   #include "tkInt.h"
  1384. --- 13,19 ----
  1385.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1386.    */
  1387.   
  1388. ! static char sccsid[] = "@(#) tkTrig.c 1.22 95/10/11 14:07:16";
  1389.   
  1390.   #include <stdio.h>
  1391.   #include "tkInt.h"
  1392. ***************
  1393. *** 465,471 ****
  1394.        * count it as two intersections.
  1395.        */
  1396.   
  1397. !     bestDist = 1.0e40;
  1398.       intersections = 0;
  1399.   
  1400.       for (count = numPoints, pPtr = polyPtr; count > 1; count--, pPtr += 2) {
  1401. --- 465,471 ----
  1402.        * count it as two intersections.
  1403.        */
  1404.   
  1405. !     bestDist = 1.0e36;
  1406.       intersections = 0;
  1407.   
  1408.       for (count = numPoints, pPtr = polyPtr; count > 1; count--, pPtr += 2) {
  1409. *** ../tk4.0p2/./tkTextDisp.c    Sat Jul 22 17:17:20 1995
  1410. --- ./tkTextDisp.c    Tue Nov 21 13:15:26 1995
  1411. ***************
  1412. *** 12,18 ****
  1413.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1414.    */
  1415.   
  1416. ! static char sccsid[] = "@(#) tkTextDisp.c 1.92 95/07/22 17:17:18";
  1417.   
  1418.   #include "tkPort.h"
  1419.   #include "tkInt.h"
  1420. --- 12,18 ----
  1421.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1422.    */
  1423.   
  1424. ! static char sccsid[] = "@(#) tkTextDisp.c 1.96 95/11/21 13:15:27";
  1425.   
  1426.   #include "tkPort.h"
  1427.   #include "tkInt.h"
  1428. ***************
  1429. *** 747,752 ****
  1430. --- 747,756 ----
  1431.                        * style for first character on line. */
  1432.       int tabSize;            /* Number of pixels consumed by current
  1433.                        * tab stop. */
  1434. +     TkTextDispChunk *lastCharChunkPtr;    /* Pointer to last chunk in display
  1435. +                      * lines with numChars > 0.  Used to
  1436. +                      * drop 0-sized chunks from the end
  1437. +                      * of the line. */
  1438.       int offset, ascent, descent, code;
  1439.       StyleValues *sValuePtr;
  1440.   
  1441. ***************
  1442. *** 785,790 ****
  1443. --- 789,795 ----
  1444.       rMargin = 0;
  1445.       wrapMode = tkTextCharUid;
  1446.       tabSize = 0;
  1447. +     lastCharChunkPtr = NULL;
  1448.   
  1449.       /*
  1450.        * Find the first segment to consider for the line.  Can't call
  1451. ***************
  1452. *** 885,890 ****
  1453. --- 890,896 ----
  1454.       }
  1455.       if (chunkPtr->numChars > 0) {
  1456.           noCharsYet = 0;
  1457. +         lastCharChunkPtr = chunkPtr;
  1458.       }
  1459.       if (lastChunkPtr == NULL) {
  1460.           dlPtr->chunkPtr = chunkPtr;
  1461. ***************
  1462. *** 940,945 ****
  1463. --- 946,963 ----
  1464.        * potentially require the last chunk to be layed out again.
  1465.        */
  1466.   
  1467. +     if (breakChunkPtr == NULL) {
  1468. +     /*
  1469. +      * This code makes sure that we don't accidentally display
  1470. +      * chunks with no characters at the end of the line (such as
  1471. +      * the insertion cursor).  These chunks belong on the next
  1472. +      * line.  So, throw away everything after the last chunk that
  1473. +      * has characters in it.
  1474. +      */
  1475. + 
  1476. +     breakChunkPtr = lastCharChunkPtr;
  1477. +     breakCharOffset = breakChunkPtr->numChars;
  1478. +     }
  1479.       if ((breakChunkPtr != NULL) && ((lastChunkPtr != breakChunkPtr)
  1480.           || (breakCharOffset != lastChunkPtr->numChars))) {
  1481.       while (1) {
  1482. ***************
  1483. *** 1198,1203 ****
  1484. --- 1216,1226 ----
  1485.           newPtr = dlPtr->nextPtr;
  1486.           FreeDLines(textPtr, dlPtr, newPtr, 0);
  1487.           dlPtr = newPtr;
  1488. +         if (prevPtr != NULL) {
  1489. +         prevPtr->nextPtr = newPtr;
  1490. +         } else {
  1491. +         dInfoPtr->dLinePtr = newPtr;
  1492. +         }
  1493.           continue;
  1494.       }
  1495.   
  1496. ***************
  1497. *** 2759,2765 ****
  1498.   {
  1499.       DInfo *dInfoPtr = textPtr->dInfoPtr;
  1500.       register DLine *dlPtr;
  1501. !     int bottomY, close, lineIndex;
  1502.       TkTextIndex tmpIndex, rounded;
  1503.   
  1504.       /*
  1505. --- 2782,2788 ----
  1506.   {
  1507.       DInfo *dInfoPtr = textPtr->dInfoPtr;
  1508.       register DLine *dlPtr;
  1509. !     int bottomY, close, lineIndex, lineHeight;
  1510.       TkTextIndex tmpIndex, rounded;
  1511.   
  1512.       /*
  1513. ***************
  1514. *** 2815,2825 ****
  1515.       }
  1516.   
  1517.       /*
  1518. !      * The desired line isn't already on-screen.
  1519.        */
  1520.   
  1521. !     bottomY = (dInfoPtr->y + dInfoPtr->maxY)/2;
  1522.       close = (dInfoPtr->maxY - dInfoPtr->y)/3;
  1523.       if (dlPtr != NULL) {
  1524.       /*
  1525.        * The desired line is above the top of screen.  If it is
  1526. --- 2838,2857 ----
  1527.       }
  1528.   
  1529.       /*
  1530. !      * The desired line isn't already on-screen.  Figure out what
  1531. !      * it means to be "close" to the top or bottom of the screen.
  1532. !      * Close means within 1/3 of the screen height or within three
  1533. !      * lines, whichever is greater.  Add one extra line also, to
  1534. !      * account for the way MeasureUp rounds.
  1535.        */
  1536.   
  1537. !     lineHeight = textPtr->fontPtr->ascent + textPtr->fontPtr->descent;
  1538. !     bottomY = (dInfoPtr->y + dInfoPtr->maxY + lineHeight)/2;
  1539.       close = (dInfoPtr->maxY - dInfoPtr->y)/3;
  1540. +     if (close < 3*lineHeight) {
  1541. +     close = 3*lineHeight;
  1542. +     }
  1543. +     close += lineHeight;
  1544.       if (dlPtr != NULL) {
  1545.       /*
  1546.        * The desired line is above the top of screen.  If it is
  1547. ***************
  1548. *** 2850,2856 ****
  1549.        * as low on the screen as possible but with its bottom no lower
  1550.        * than bottomY.  BottomY is the bottom of the window if the
  1551.        * desired line is just below the current screen, otherwise it
  1552. !      * is the center of the window.
  1553.        */
  1554.   
  1555.       MeasureUp(textPtr, indexPtr, bottomY, &textPtr->topIndex);
  1556. --- 2882,2888 ----
  1557.        * as low on the screen as possible but with its bottom no lower
  1558.        * than bottomY.  BottomY is the bottom of the window if the
  1559.        * desired line is just below the current screen, otherwise it
  1560. !      * is a half-line lower than the center of the window.
  1561.        */
  1562.   
  1563.       MeasureUp(textPtr, indexPtr, bottomY, &textPtr->topIndex);
  1564. ***************
  1565. *** 3133,3139 ****
  1566.       case TK_SCROLL_ERROR:
  1567.           return TCL_ERROR;
  1568.       case TK_SCROLL_MOVETO:
  1569. !         newOffset = (fraction * dInfoPtr->maxLength) / textPtr->charWidth;
  1570.           break;
  1571.       case TK_SCROLL_PAGES:
  1572.           charsPerPage = ((dInfoPtr->maxX - dInfoPtr->x) / textPtr->charWidth)
  1573. --- 3165,3178 ----
  1574.       case TK_SCROLL_ERROR:
  1575.           return TCL_ERROR;
  1576.       case TK_SCROLL_MOVETO:
  1577. !         if (fraction > 1.0) {
  1578. !         fraction = 1.0;
  1579. !         }
  1580. !         if (fraction < 0) {
  1581. !         fraction = 0;
  1582. !         }
  1583. !           newOffset = ((fraction * dInfoPtr->maxLength) / textPtr->charWidth)
  1584. !             + 0.5;
  1585.           break;
  1586.       case TK_SCROLL_PAGES:
  1587.           charsPerPage = ((dInfoPtr->maxX - dInfoPtr->x) / textPtr->charWidth)
  1588. ***************
  1589. *** 3359,3374 ****
  1590.       case TK_SCROLL_ERROR:
  1591.           return TCL_ERROR;
  1592.       case TK_SCROLL_MOVETO:
  1593.           fraction *= TkBTreeNumLines(textPtr->tree);
  1594.           lineNum = fraction;
  1595. !         TkTextMakeIndex(textPtr->tree, lineNum+1, 0, &index);
  1596. !         TkTextIndexBackChars(&index, 1, &index);
  1597. !         index.charIndex = (index.charIndex+1)*(fraction-lineNum);
  1598.           TkTextSetYView(textPtr, &index, 0);
  1599.           break;
  1600.       case TK_SCROLL_PAGES:
  1601.           /*
  1602. !          * Scroll up or down by screenfulls.  Actually, use the
  1603.            * window height minus two lines, so that there's some
  1604.            * overlap between adjacent pages.
  1605.            */
  1606. --- 3398,3419 ----
  1607.       case TK_SCROLL_ERROR:
  1608.           return TCL_ERROR;
  1609.       case TK_SCROLL_MOVETO:
  1610. +         if (fraction > 1.0) {
  1611. +         fraction = 1.0;
  1612. +         }
  1613. +         if (fraction < 0) {
  1614. +         fraction = 0;
  1615. +         }
  1616.           fraction *= TkBTreeNumLines(textPtr->tree);
  1617.           lineNum = fraction;
  1618. !         TkTextMakeIndex(textPtr->tree, lineNum, 0, &index);
  1619. !         index.charIndex = TkBTreeCharsInLine(index.linePtr)
  1620. !             * (fraction-lineNum) + 0.5;
  1621.           TkTextSetYView(textPtr, &index, 0);
  1622.           break;
  1623.       case TK_SCROLL_PAGES:
  1624.           /*
  1625. !          * Scroll up or down by screenfuls.  Actually, use the
  1626.            * window height minus two lines, so that there's some
  1627.            * overlap between adjacent pages.
  1628.            */
  1629. *** ../tk4.0p2/./tkTextTag.c    Thu May 25 10:36:16 1995
  1630. --- ./tkTextTag.c    Fri Nov 24 15:46:16 1995
  1631. ***************
  1632. *** 12,18 ****
  1633.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1634.    */
  1635.   
  1636. ! static char sccsid[] = "@(#) tkTextTag.c 1.28 95/05/25 10:36:17";
  1637.   
  1638.   #include "default.h"
  1639.   #include "tkPort.h"
  1640. --- 12,18 ----
  1641.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1642.    */
  1643.   
  1644. ! static char sccsid[] = "@(#) tkTextTag.c 1.29 95/11/24 15:46:17";
  1645.   
  1646.   #include "default.h"
  1647.   #include "tkPort.h"
  1648. ***************
  1649. *** 1108,1114 ****
  1650.       }
  1651.       TkTextPickCurrent(textPtr, eventPtr);
  1652.       }
  1653. !     if ((textPtr->numCurTags > 0) && (textPtr->bindingTable != NULL)) {
  1654.       Tk_BindEvent(textPtr->bindingTable, eventPtr, textPtr->tkwin,
  1655.           textPtr->numCurTags, (ClientData *) textPtr->curTagArrayPtr);
  1656.       }
  1657. --- 1108,1115 ----
  1658.       }
  1659.       TkTextPickCurrent(textPtr, eventPtr);
  1660.       }
  1661. !     if ((textPtr->numCurTags > 0) && (textPtr->bindingTable != NULL)
  1662. !         && (textPtr->tkwin != NULL)) {
  1663.       Tk_BindEvent(textPtr->bindingTable, eventPtr, textPtr->tkwin,
  1664.           textPtr->numCurTags, (ClientData *) textPtr->curTagArrayPtr);
  1665.       }
  1666. ***************
  1667. *** 1143,1149 ****
  1668.    * Side effects:
  1669.    *    The current mark for textPtr may change.  If it does,
  1670.    *    then the commands associated with character entry and leave
  1671. !  *    could do just about anything.
  1672.    *
  1673.    *--------------------------------------------------------------
  1674.    */
  1675. --- 1144,1152 ----
  1676.    * Side effects:
  1677.    *    The current mark for textPtr may change.  If it does,
  1678.    *    then the commands associated with character entry and leave
  1679. !  *    could do just about anything.  For example, the text widget
  1680. !  *    might be deleted.  It is up to the caller to protect itself
  1681. !  *    with calls to Tk_Preserve and Tk_Release.
  1682.    *
  1683.    *--------------------------------------------------------------
  1684.    */
  1685. ***************
  1686. *** 1278,1284 ****
  1687.       oldArrayPtr = textPtr->curTagArrayPtr;
  1688.       textPtr->curTagArrayPtr = newArrayPtr;
  1689.       if (numOldTags != 0) {
  1690. !     if (textPtr->bindingTable != NULL) {
  1691.           event = textPtr->pickEvent;
  1692.           event.type = LeaveNotify;
  1693.   
  1694. --- 1281,1287 ----
  1695.       oldArrayPtr = textPtr->curTagArrayPtr;
  1696.       textPtr->curTagArrayPtr = newArrayPtr;
  1697.       if (numOldTags != 0) {
  1698. !     if ((textPtr->bindingTable != NULL) && (textPtr->tkwin != NULL)) {
  1699.           event = textPtr->pickEvent;
  1700.           event.type = LeaveNotify;
  1701.   
  1702. ***************
  1703. *** 1306,1312 ****
  1704.           textPtr->pickEvent.xcrossing.y, &index);
  1705.       TkTextSetMark(textPtr, "current", &index);
  1706.       if (numNewTags != 0) {
  1707. !     if (textPtr->bindingTable != NULL) {
  1708.           event = textPtr->pickEvent;
  1709.           event.type = EnterNotify;
  1710.           event.xcrossing.detail = NotifyAncestor;
  1711. --- 1309,1315 ----
  1712.           textPtr->pickEvent.xcrossing.y, &index);
  1713.       TkTextSetMark(textPtr, "current", &index);
  1714.       if (numNewTags != 0) {
  1715. !     if ((textPtr->bindingTable != NULL) && (textPtr->tkwin != NULL)) {
  1716.           event = textPtr->pickEvent;
  1717.           event.type = EnterNotify;
  1718.           event.xcrossing.detail = NotifyAncestor;
  1719. *** ../tk4.0p2/./tkInt.h    Sat Jun 24 17:12:55 1995
  1720. --- ./tkInt.h    Mon Sep 25 13:19:01 1995
  1721. ***************
  1722. *** 10,16 ****
  1723.    * See the file "license.terms" for information on usage and redistribution
  1724.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1725.    *
  1726. !  * @(#) tkInt.h 1.147 95/06/24 17:12:55
  1727.    */
  1728.   
  1729.   #ifndef _TKINT
  1730. --- 10,16 ----
  1731.    * See the file "license.terms" for information on usage and redistribution
  1732.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1733.    *
  1734. !  * @(#) tkInt.h 1.149 95/09/25 13:19:00
  1735.    */
  1736.   
  1737.   #ifndef _TKINT
  1738. *** ../tk4.0p2/./changes    Mon Sep 18 13:27:53 1995
  1739. --- ./changes    Mon Nov 27 09:02:16 1995
  1740. ***************
  1741. *** 2,8 ****
  1742.   released on March 13, 1991.  Changes that aren't backward compatible
  1743.   are marked specially.
  1744.   
  1745. ! sccsid = @(#) changes 1.23 95/09/18 13:27:50
  1746.   
  1747.   3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
  1748.   the interpreter when the main window is deleted (otherwise there will
  1749. --- 2,8 ----
  1750.   released on March 13, 1991.  Changes that aren't backward compatible
  1751.   are marked specially.
  1752.   
  1753. ! sccsid = @(#) changes 1.26 95/11/27 09:02:19
  1754.   
  1755.   3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
  1756.   the interpreter when the main window is deleted (otherwise there will
  1757. ***************
  1758. *** 2506,2511 ****
  1759.   could occasionally happen in tkScaleDrag. (JO)
  1760.   
  1761.   9/19/95 (bug fix) Fixed bug in text index processing that causes
  1762. ! tests textIndex-11.1 and textIndex12.1 to fail on some platforms.
  1763.   
  1764.   ----------------- Released patch 4.0p2, 9/19/95 ----------------------
  1765. --- 2506,2624 ----
  1766.   could occasionally happen in tkScaleDrag. (JO)
  1767.   
  1768.   9/19/95 (bug fix) Fixed bug in text index processing that causes
  1769. ! tests textIndex-11.1 and textIndex12.1 to fail on some platforms. (JO)
  1770.   
  1771.   ----------------- Released patch 4.0p2, 9/19/95 ----------------------
  1772. + 
  1773. + 9/22/95 (bug fix) Fixed bug where text widgets could occasionally
  1774. + display the insertion cursor both at the end of one line and the
  1775. + beginning of the next. (JO)
  1776. + 
  1777. + 9/25/95 (bug fix) Text widgets sometimes scrolled backwards on
  1778. + occasion if you dragged down past the bottom of the scrollbar. (JO)
  1779. + 
  1780. + 9/25/95 (bug fix) Fixed bug in menus where a cascaded submenu posted
  1781. + from a torn-off menu could be left posted if mouse was pulled off the
  1782. + end of the cascade and released. (JO)
  1783. + 
  1784. + 9/25/95 (new feature) Added "--" switch to wish, so that you can
  1785. + pass arguments like -n through to a script without having wish
  1786. + interpret them. (JO)
  1787. + 
  1788. + 9/25/95 (bug fix) Fixed core dump that could occur for radiobuttons
  1789. + and selectbuttons if -selectcolor was an empty string. (JO)
  1790. + 
  1791. + 9/26/95 (bug fix) Entries didn't used to notice if a trace procedure
  1792. + on the -textvariable overrode a new value set by the entry.  This
  1793. + could cause the variable to get out of sync with the contents of the
  1794. + entry. (JO)
  1795. + 
  1796. + 9/26/95 (bug fix) Fixed round-off errors in listbox scrolling.  Among
  1797. + other things, this could cause listbox view to shift slightly at
  1798. + unexpected times. (JO)
  1799. + 
  1800. + 9/26/95 (bug fix) TkColor.c wasn't computing colormap size correctly;
  1801. + could result in X Protocol error for QueryColors when colormaps run
  1802. + out of colors. (JO)
  1803. + 
  1804. + 9/27/95 (feature change)  Modified tk_dialog so that it uses the
  1805. + option database for the -wraplength option on the message.  This
  1806. + allows the option to be overridden by the caller. (JO)
  1807. + 
  1808. + 10/1/95 (bug fix) Canvas rectangles weren't computing their bounding
  1809. + boxes correctly when coordinates were negative, resulting in improper
  1810. + redisplay (e.g. junk left behind) when dragging. (JO)
  1811. + 
  1812. + 10/30/95 (bug fix) When focus-follows-mode (invoked via tk_focusFollowsMouse),
  1813. + was focussing on windows even in situations where keyboard traversal would
  1814. + skip the window.  Changed to use the tkFocusOK procedure so that the
  1815. + criteria for focussing are the same in both modes. (JO)
  1816. + 
  1817. + 11/2/95 (bug fix) Changed listbox bindings to ignore double-clicks.
  1818. + This avoids errors that used to occur if a user defined a binding
  1819. + for double-click that deleted the listbox. (JO)
  1820. + 
  1821. + 11/7/95 (bug fix) If wish was invoked with a command-line geometry and
  1822. + a script file (e.g. "wish foo.tcl -geometry 30x20"), and if one of
  1823. + the windows created by the script used the -setgrid option, then the
  1824. + width and height from the command line were lost. (JO)
  1825. + 
  1826. + 11/8/95 (bug fix) The "see" command didn't work quite right for texts:
  1827. + if the window was small and you try to "see" a line just offscreen,
  1828. + Tk centered the line (actually, mis-centered it) when it should have
  1829. + aligned it at the top or bottom. (JO)
  1830. + 
  1831. + 11/9/95 (bug fix) The "send" command crashed if you tried to send to
  1832. + a different display with "-displayof". (JO)
  1833. + 
  1834. + 11/9/95 (bug fix) The Symbol font didn't print right in Postscript
  1835. + output, because of changes made to re-encode fonts to get proper
  1836. + ISO Latin1 behavior.  Changed the code not to re-encode the Symbol
  1837. + font. (JO)
  1838. + 
  1839. + 11/17/95 (bug fix) If a window was gridded, Tk still computed the
  1840. + default maximum dimensions in pixel units, which resulted in windows
  1841. + that could grow much larger than the screen. (JO)
  1842. + 
  1843. + 11/17/95 (bug fix) If a menus entries were all disabled, posting
  1844. + the menu and typing Up or Down caused an infinite loop, locking
  1845. + up the screen (JO).
  1846. + 
  1847. + 11/19/95 (bug fix) The focus wasn't being restored properly after a
  1848. + menu selection in a cascaded menu. (JO)
  1849. + 
  1850. + 11/19/95 (bug fix) Menubutton's didn't stipple display their images
  1851. + differently when disabled.  Change to have the same behavior as buttons:
  1852. + the image is stippled over in the background color when the menubutton
  1853. + is disabled. (JO)
  1854. + 
  1855. + 11/21/95 (bug fix) Changes in display attributes such as font could
  1856. + cause core dumps in the text widget under some circumstances involving
  1857. + line wrapping. (JO)
  1858. + 
  1859. + 11/22/95 (bug fix/new feature)  Changed both the placer and the packer
  1860. + to ensure that slaves are unmapped whenever the master is unmapped.
  1861. + This saves time that slaves might otherwise spend trying to redisplay
  1862. + themselves when they're unmapped. (JO)
  1863. + 
  1864. + 11/22/95 (bug fix) Space and return keys didn't work for menus if
  1865. + they were posted via Alt-x keystrokes. (JO)
  1866. + 
  1867. + 11/24/95 (bug fix) tk_dialog procedure had binding for <Return> that
  1868. + always activated default binding, even if input focus was in some
  1869. + other binding.  Removed this feature, since existing focus support
  1870. + will already "do the right thing".  (JO)
  1871. + 
  1872. + 11/24/95 (bug fix) Both canvases and texts could dump core if a binding
  1873. + (such as ButtonRelease on an internal item) deleted the widget. (JO)
  1874. + 
  1875. + 11/24/95 (bug fix) It was possible for a slave to be placed or packed
  1876. + -in itself, with unpleasant consequences.  It is now an error for the
  1877. + slave to be its own master for geometry management. (JO)
  1878. + 
  1879. + 11/25/95 (bug fix) The -command option of scales was sometimes being
  1880. + invoked spuriously (e.g. when the mouse moved in the scale without a
  1881. + button down).  This was because the scale wasn't rounding properly
  1882. + when setting the scale value from its associated variable. (JO)
  1883. + 
  1884. + ----------------- Released patch 4.0p3, 11/28/95 ----------------------
  1885. *** ../tk4.0p2/./configure    Mon Sep 18 11:08:13 1995
  1886. --- ./configure    Mon Nov 27 09:04:23 1995
  1887. ***************
  1888. *** 401,407 ****
  1889.   
  1890.   
  1891.   
  1892. ! # @(#) configure.in 1.18 95/09/05 17:04:17
  1893.   
  1894.   ac_aux_dir=
  1895.   for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
  1896. --- 401,407 ----
  1897.   
  1898.   
  1899.   
  1900. ! # @(#) configure.in 1.19 95/10/11 14:13:45
  1901.   
  1902.   ac_aux_dir=
  1903.   for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
  1904. ***************
  1905. *** 1259,1264 ****
  1906. --- 1259,1265 ----
  1907.           for i in $dirs ; do
  1908.           if test -r $i/X11/Intrinsic.h; then
  1909.               XINCLUDES=" -I$i"
  1910. +         break
  1911.           fi
  1912.           done
  1913.       fi
  1914. ***************
  1915. *** 1282,1287 ****
  1916. --- 1283,1289 ----
  1917.       for i in $dirs ; do
  1918.           if test -r $i/libX11.a; then
  1919.           XLIBSW="-L$i -lX11"
  1920. +         break
  1921.           fi
  1922.       done
  1923.       fi
  1924. ***************
  1925. *** 1300,1306 ****
  1926.     ac_save_LIBS="$LIBS"
  1927.   LIBS="-lXwindow  $LIBS"
  1928.   cat > conftest.$ac_ext <<EOF
  1929. ! #line 1304 "configure"
  1930.   #include "confdefs.h"
  1931.   
  1932.   int main() { return 0; }
  1933. --- 1302,1308 ----
  1934.     ac_save_LIBS="$LIBS"
  1935.   LIBS="-lXwindow  $LIBS"
  1936.   cat > conftest.$ac_ext <<EOF
  1937. ! #line 1306 "configure"
  1938.   #include "confdefs.h"
  1939.   
  1940.   int main() { return 0; }
  1941. ***************
  1942. *** 1358,1364 ****
  1943.     ac_save_LIBS="$LIBS"
  1944.   LIBS="-lXbsd  $LIBS"
  1945.   cat > conftest.$ac_ext <<EOF
  1946. ! #line 1362 "configure"
  1947.   #include "confdefs.h"
  1948.   
  1949.   int main() { return 0; }
  1950. --- 1360,1366 ----
  1951.     ac_save_LIBS="$LIBS"
  1952.   LIBS="-lXbsd  $LIBS"
  1953.   cat > conftest.$ac_ext <<EOF
  1954. ! #line 1364 "configure"
  1955.   #include "confdefs.h"
  1956.   
  1957.   int main() { return 0; }
  1958. ***************
  1959. *** 1391,1397 ****
  1960.     echo $ac_n "(cached) $ac_c" 1>&6
  1961.   else
  1962.     cat > conftest.$ac_ext <<EOF
  1963. ! #line 1395 "configure"
  1964.   #include "confdefs.h"
  1965.   /* System header to define __stub macros and hopefully few prototypes,
  1966.       which can conflict with char connect(); below.  */
  1967. --- 1393,1399 ----
  1968.     echo $ac_n "(cached) $ac_c" 1>&6
  1969.   else
  1970.     cat > conftest.$ac_ext <<EOF
  1971. ! #line 1397 "configure"
  1972.   #include "confdefs.h"
  1973.   /* System header to define __stub macros and hopefully few prototypes,
  1974.       which can conflict with char connect(); below.  */
  1975. ***************
  1976. *** 1439,1445 ****
  1977.     ac_save_LIBS="$LIBS"
  1978.   LIBS="-lsocket  $LIBS"
  1979.   cat > conftest.$ac_ext <<EOF
  1980. ! #line 1443 "configure"
  1981.   #include "confdefs.h"
  1982.   
  1983.   int main() { return 0; }
  1984. --- 1441,1447 ----
  1985.     ac_save_LIBS="$LIBS"
  1986.   LIBS="-lsocket  $LIBS"
  1987.   cat > conftest.$ac_ext <<EOF
  1988. ! #line 1445 "configure"
  1989.   #include "confdefs.h"
  1990.   
  1991.   int main() { return 0; }
  1992. ***************
  1993. *** 1475,1481 ****
  1994.     echo $ac_n "(cached) $ac_c" 1>&6
  1995.   else
  1996.     cat > conftest.$ac_ext <<EOF
  1997. ! #line 1479 "configure"
  1998.   #include "confdefs.h"
  1999.   /* System header to define __stub macros and hopefully few prototypes,
  2000.       which can conflict with char accept(); below.  */
  2001. --- 1477,1483 ----
  2002.     echo $ac_n "(cached) $ac_c" 1>&6
  2003.   else
  2004.     cat > conftest.$ac_ext <<EOF
  2005. ! #line 1481 "configure"
  2006.   #include "confdefs.h"
  2007.   /* System header to define __stub macros and hopefully few prototypes,
  2008.       which can conflict with char accept(); below.  */
  2009. ***************
  2010. *** 1521,1527 ****
  2011.     echo $ac_n "(cached) $ac_c" 1>&6
  2012.   else
  2013.     cat > conftest.$ac_ext <<EOF
  2014. ! #line 1525 "configure"
  2015.   #include "confdefs.h"
  2016.   /* System header to define __stub macros and hopefully few prototypes,
  2017.       which can conflict with char gethostbyname(); below.  */
  2018. --- 1523,1529 ----
  2019.     echo $ac_n "(cached) $ac_c" 1>&6
  2020.   else
  2021.     cat > conftest.$ac_ext <<EOF
  2022. ! #line 1527 "configure"
  2023.   #include "confdefs.h"
  2024.   /* System header to define __stub macros and hopefully few prototypes,
  2025.       which can conflict with char gethostbyname(); below.  */
  2026. ***************
  2027. *** 1565,1571 ****
  2028.     ac_save_LIBS="$LIBS"
  2029.   LIBS="-lnsl  $LIBS"
  2030.   cat > conftest.$ac_ext <<EOF
  2031. ! #line 1569 "configure"
  2032.   #include "confdefs.h"
  2033.   
  2034.   int main() { return 0; }
  2035. --- 1567,1573 ----
  2036.     ac_save_LIBS="$LIBS"
  2037.   LIBS="-lnsl  $LIBS"
  2038.   cat > conftest.$ac_ext <<EOF
  2039. ! #line 1571 "configure"
  2040.   #include "confdefs.h"
  2041.   
  2042.   int main() { return 0; }
  2043. ***************
  2044. *** 1612,1618 ****
  2045.       tk_oldLibs=$LIBS
  2046.       LIBS="$LIBS -lX11-mit"
  2047.       cat > conftest.$ac_ext <<EOF
  2048. ! #line 1616 "configure"
  2049.   #include "confdefs.h"
  2050.   
  2051.       #include <X11/Xlib.h>
  2052. --- 1614,1620 ----
  2053.       tk_oldLibs=$LIBS
  2054.       LIBS="$LIBS -lX11-mit"
  2055.       cat > conftest.$ac_ext <<EOF
  2056. ! #line 1618 "configure"
  2057.   #include "confdefs.h"
  2058.   
  2059.       #include <X11/Xlib.h>
  2060. ***************
  2061. *** 1654,1660 ****
  2062.   
  2063.   echo $ac_n "checking count field in FILE structures""... $ac_c" 1>&6
  2064.   cat > conftest.$ac_ext <<EOF
  2065. ! #line 1658 "configure"
  2066.   #include "confdefs.h"
  2067.   #include <stdio.h>
  2068.   int main() { return 0; }
  2069. --- 1656,1662 ----
  2070.   
  2071.   echo $ac_n "checking count field in FILE structures""... $ac_c" 1>&6
  2072.   cat > conftest.$ac_ext <<EOF
  2073. ! #line 1660 "configure"
  2074.   #include "confdefs.h"
  2075.   #include <stdio.h>
  2076.   int main() { return 0; }
  2077. ***************
  2078. *** 1670,1676 ****
  2079.   
  2080.   if test "$fcnt" = ""; then
  2081.       cat > conftest.$ac_ext <<EOF
  2082. ! #line 1674 "configure"
  2083.   #include "confdefs.h"
  2084.   #include <stdio.h>
  2085.   int main() { return 0; }
  2086. --- 1672,1678 ----
  2087.   
  2088.   if test "$fcnt" = ""; then
  2089.       cat > conftest.$ac_ext <<EOF
  2090. ! #line 1676 "configure"
  2091.   #include "confdefs.h"
  2092.   #include <stdio.h>
  2093.   int main() { return 0; }
  2094. ***************
  2095. *** 1687,1693 ****
  2096.   fi
  2097.   if test "$fcnt" = ""; then
  2098.       cat > conftest.$ac_ext <<EOF
  2099. ! #line 1691 "configure"
  2100.   #include "confdefs.h"
  2101.   #include <stdio.h>
  2102.   int main() { return 0; }
  2103. --- 1689,1695 ----
  2104.   fi
  2105.   if test "$fcnt" = ""; then
  2106.       cat > conftest.$ac_ext <<EOF
  2107. ! #line 1693 "configure"
  2108.   #include "confdefs.h"
  2109.   #include <stdio.h>
  2110.   int main() { return 0; }
  2111. ***************
  2112. *** 1704,1710 ****
  2113.   fi
  2114.   if test "$fcnt" = ""; then
  2115.       cat > conftest.$ac_ext <<EOF
  2116. ! #line 1708 "configure"
  2117.   #include "confdefs.h"
  2118.   #include <stdio.h>
  2119.   int main() { return 0; }
  2120. --- 1706,1712 ----
  2121.   fi
  2122.   if test "$fcnt" = ""; then
  2123.       cat > conftest.$ac_ext <<EOF
  2124. ! #line 1710 "configure"
  2125.   #include "confdefs.h"
  2126.   #include <stdio.h>
  2127.   int main() { return 0; }
  2128. ***************
  2129. *** 1727,1733 ****
  2130.   fi
  2131.   if test "$fcnt" = ""; then
  2132.       cat > conftest.$ac_ext <<EOF
  2133. ! #line 1731 "configure"
  2134.   #include "confdefs.h"
  2135.   #include <stdio.h>
  2136.   int main() { return 0; }
  2137. --- 1729,1735 ----
  2138.   fi
  2139.   if test "$fcnt" = ""; then
  2140.       cat > conftest.$ac_ext <<EOF
  2141. ! #line 1733 "configure"
  2142.   #include "confdefs.h"
  2143.   #include <stdio.h>
  2144.   int main() { return 0; }
  2145. ***************
  2146. *** 1754,1760 ****
  2147.   fi
  2148.   if test "$fcnt" = ""; then
  2149.       cat > conftest.$ac_ext <<EOF
  2150. ! #line 1758 "configure"
  2151.   #include "confdefs.h"
  2152.   #include <stdio.h>
  2153.   int main() { return 0; }
  2154. --- 1756,1762 ----
  2155.   fi
  2156.   if test "$fcnt" = ""; then
  2157.       cat > conftest.$ac_ext <<EOF
  2158. ! #line 1760 "configure"
  2159.   #include "confdefs.h"
  2160.   #include <stdio.h>
  2161.   int main() { return 0; }
  2162. ***************
  2163. *** 1798,1804 ****
  2164.     echo $ac_n "(cached) $ac_c" 1>&6
  2165.   else
  2166.     cat > conftest.$ac_ext <<EOF
  2167. ! #line 1802 "configure"
  2168.   #include "confdefs.h"
  2169.   /* System header to define __stub macros and hopefully few prototypes,
  2170.       which can conflict with char sin(); below.  */
  2171. --- 1800,1806 ----
  2172.     echo $ac_n "(cached) $ac_c" 1>&6
  2173.   else
  2174.     cat > conftest.$ac_ext <<EOF
  2175. ! #line 1804 "configure"
  2176.   #include "confdefs.h"
  2177.   /* System header to define __stub macros and hopefully few prototypes,
  2178.       which can conflict with char sin(); below.  */
  2179. ***************
  2180. *** 1845,1851 ****
  2181.     ac_save_LIBS="$LIBS"
  2182.   LIBS="-lieee  $LIBS"
  2183.   cat > conftest.$ac_ext <<EOF
  2184. ! #line 1849 "configure"
  2185.   #include "confdefs.h"
  2186.   
  2187.   int main() { return 0; }
  2188. --- 1847,1853 ----
  2189.     ac_save_LIBS="$LIBS"
  2190.   LIBS="-lieee  $LIBS"
  2191.   cat > conftest.$ac_ext <<EOF
  2192. ! #line 1851 "configure"
  2193.   #include "confdefs.h"
  2194.   
  2195.   int main() { return 0; }
  2196. ***************
  2197. *** 1883,1889 ****
  2198.     echo $ac_n "(cached) $ac_c" 1>&6
  2199.   else
  2200.     cat > conftest.$ac_ext <<EOF
  2201. ! #line 1887 "configure"
  2202.   #include "confdefs.h"
  2203.   /* System header to define __stub macros and hopefully few prototypes,
  2204.       which can conflict with char memmove(); below.  */
  2205. --- 1885,1891 ----
  2206.     echo $ac_n "(cached) $ac_c" 1>&6
  2207.   else
  2208.     cat > conftest.$ac_ext <<EOF
  2209. ! #line 1889 "configure"
  2210.   #include "confdefs.h"
  2211.   /* System header to define __stub macros and hopefully few prototypes,
  2212.       which can conflict with char memmove(); below.  */
  2213. ***************
  2214. *** 1937,1943 ****
  2215.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  2216.   else
  2217.   cat > conftest.$ac_ext <<EOF
  2218. ! #line 1941 "configure"
  2219.   #include "confdefs.h"
  2220.   
  2221.   int main()
  2222. --- 1939,1945 ----
  2223.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  2224.   else
  2225.   cat > conftest.$ac_ext <<EOF
  2226. ! #line 1943 "configure"
  2227.   #include "confdefs.h"
  2228.   
  2229.   int main()
  2230. ***************
  2231. *** 1983,1989 ****
  2232.     echo $ac_n "(cached) $ac_c" 1>&6
  2233.   else
  2234.     cat > conftest.$ac_ext <<EOF
  2235. ! #line 1987 "configure"
  2236.   #include "confdefs.h"
  2237.   /* System header to define __stub macros and hopefully few prototypes,
  2238.       which can conflict with char BSDgettimeofday(); below.  */
  2239. --- 1985,1991 ----
  2240.     echo $ac_n "(cached) $ac_c" 1>&6
  2241.   else
  2242.     cat > conftest.$ac_ext <<EOF
  2243. ! #line 1989 "configure"
  2244.   #include "confdefs.h"
  2245.   /* System header to define __stub macros and hopefully few prototypes,
  2246.       which can conflict with char BSDgettimeofday(); below.  */
  2247. ***************
  2248. *** 2027,2033 ****
  2249.   
  2250.   echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6
  2251.   cat > conftest.$ac_ext <<EOF
  2252. ! #line 2031 "configure"
  2253.   #include "confdefs.h"
  2254.   #include <sys/time.h>
  2255.   EOF
  2256. --- 2029,2035 ----
  2257.   
  2258.   echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6
  2259.   cat > conftest.$ac_ext <<EOF
  2260. ! #line 2033 "configure"
  2261.   #include "confdefs.h"
  2262.   #include <sys/time.h>
  2263.   EOF
  2264. ***************
  2265. *** 2060,2066 ****
  2266.     echo $ac_n "(cached) $ac_c" 1>&6
  2267.   else
  2268.     cat > conftest.$ac_ext <<EOF
  2269. ! #line 2064 "configure"
  2270.   #include "confdefs.h"
  2271.   /* System header to define __stub macros and hopefully few prototypes,
  2272.       which can conflict with char strtod(); below.  */
  2273. --- 2062,2068 ----
  2274.     echo $ac_n "(cached) $ac_c" 1>&6
  2275.   else
  2276.     cat > conftest.$ac_ext <<EOF
  2277. ! #line 2066 "configure"
  2278.   #include "confdefs.h"
  2279.   /* System header to define __stub macros and hopefully few prototypes,
  2280.       which can conflict with char strtod(); below.  */
  2281. ***************
  2282. *** 2106,2112 ****
  2283.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  2284.   else
  2285.   cat > conftest.$ac_ext <<EOF
  2286. ! #line 2110 "configure"
  2287.   #include "confdefs.h"
  2288.   
  2289.       extern double strtod();
  2290. --- 2108,2114 ----
  2291.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  2292.   else
  2293.   cat > conftest.$ac_ext <<EOF
  2294. ! #line 2112 "configure"
  2295.   #include "confdefs.h"
  2296.   
  2297.       extern double strtod();
  2298. *** ../tk4.0p2/./configure.in    Tue Sep  5 17:04:17 1995
  2299. --- ./configure.in    Wed Oct 11 14:13:44 1995
  2300. ***************
  2301. *** 3,9 ****
  2302.   dnl    to configure the system for the local environment.
  2303.   AC_INIT(tk.h)
  2304.   
  2305. ! # @(#) configure.in 1.18 95/09/05 17:04:17
  2306.   
  2307.   AC_PROG_INSTALL
  2308.   AC_PROG_RANLIB
  2309. --- 3,9 ----
  2310.   dnl    to configure the system for the local environment.
  2311.   AC_INIT(tk.h)
  2312.   
  2313. ! # @(#) configure.in 1.19 95/10/11 14:13:45
  2314.   
  2315.   AC_PROG_INSTALL
  2316.   AC_PROG_RANLIB
  2317. ***************
  2318. *** 89,94 ****
  2319. --- 89,95 ----
  2320.           for i in $dirs ; do
  2321.           if test -r $i/X11/Intrinsic.h; then
  2322.               XINCLUDES=" -I$i"
  2323. +         break
  2324.           fi
  2325.           done
  2326.       fi
  2327. ***************
  2328. *** 112,117 ****
  2329. --- 113,119 ----
  2330.       for i in $dirs ; do
  2331.           if test -r $i/libX11.a; then
  2332.           XLIBSW="-L$i -lX11"
  2333. +         break
  2334.           fi
  2335.       done
  2336.       fi
  2337. *** ../tk4.0p2/./library/dialog.tcl    Fri Jul 28 09:35:56 1995
  2338. --- ./library/dialog.tcl    Fri Nov 24 15:03:00 1995
  2339. ***************
  2340. *** 3,9 ****
  2341.   # This file defines the procedure tk_dialog, which creates a dialog
  2342.   # box containing a bitmap, a message, and one or more buttons.
  2343.   #
  2344. ! # @(#) dialog.tcl 1.16 95/07/28 09:35:57
  2345.   #
  2346.   # Copyright (c) 1992-1993 The Regents of the University of California.
  2347.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2348. --- 3,9 ----
  2349.   # This file defines the procedure tk_dialog, which creates a dialog
  2350.   # box containing a bitmap, a message, and one or more buttons.
  2351.   #
  2352. ! # @(#) dialog.tcl 1.18 95/11/24 15:03:04
  2353.   #
  2354.   # Copyright (c) 1992-1993 The Regents of the University of California.
  2355.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2356. ***************
  2357. *** 45,53 ****
  2358.       frame $w.bot -relief raised -bd 1
  2359.       pack $w.bot -side bottom -fill both
  2360.   
  2361. !     # 2. Fill the top part with bitmap and message.
  2362.   
  2363. !     label $w.msg -wraplength 3i -justify left -text $text \
  2364.           -font -Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-*
  2365.       pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
  2366.       if {$bitmap != ""} {
  2367. --- 45,56 ----
  2368.       frame $w.bot -relief raised -bd 1
  2369.       pack $w.bot -side bottom -fill both
  2370.   
  2371. !     # 2. Fill the top part with bitmap and message (use the option
  2372. !     # database for -wraplength so that it can be overridden by
  2373. !     # the caller).
  2374.   
  2375. !     option add *Dialog.msg.wrapLength 3i widgetDefault
  2376. !     label $w.msg -justify left -text $text \
  2377.           -font -Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-*
  2378.       pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
  2379.       if {$bitmap != ""} {
  2380. ***************
  2381. *** 65,71 ****
  2382.           raise $w.button$i $w.default
  2383.           pack $w.default -in $w.bot -side left -expand 1 -padx 3m -pady 2m
  2384.           pack $w.button$i -in $w.default -padx 2m -pady 2m
  2385. -         bind $w <Return> "$w.button$i flash; set tkPriv(button) $i"
  2386.       } else {
  2387.           pack $w.button$i -in $w.bot -side left -expand 1 \
  2388.               -padx 3m -pady 2m
  2389. --- 68,73 ----
  2390. *** ../tk4.0p2/./library/focus.tcl    Thu Jun  8 13:18:30 1995
  2391. --- ./library/focus.tcl    Mon Oct 30 08:08:24 1995
  2392. ***************
  2393. *** 3,9 ****
  2394.   # This file defines several procedures for managing the input
  2395.   # focus.
  2396.   #
  2397. ! # @(#) focus.tcl 1.14 95/05/04 13:31:48
  2398.   #
  2399.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2400.   #
  2401. --- 3,9 ----
  2402.   # This file defines several procedures for managing the input
  2403.   # focus.
  2404.   #
  2405. ! # @(#) focus.tcl 1.15 95/10/30 08:08:27
  2406.   #
  2407.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2408.   #
  2409. ***************
  2410. *** 167,173 ****
  2411.       set script {
  2412.       if {("%d" == "NotifyAncestor") || ("%d" == "NotifyNonlinear")
  2413.           || ("%d" == "NotifyInferior")} {
  2414. !         focus %W
  2415.       }
  2416.       }
  2417.       if {$old != ""} {
  2418. --- 167,175 ----
  2419.       set script {
  2420.       if {("%d" == "NotifyAncestor") || ("%d" == "NotifyNonlinear")
  2421.           || ("%d" == "NotifyInferior")} {
  2422. !         if [tkFocusOK %W] {
  2423. !         focus %W
  2424. !         }
  2425.       }
  2426.       }
  2427.       if {$old != ""} {
  2428. *** ../tk4.0p2/./library/listbox.tcl    Tue Aug 22 08:49:49 1995
  2429. --- ./library/listbox.tcl    Thu Nov  2 11:02:17 1995
  2430. ***************
  2431. *** 3,9 ****
  2432.   # This file defines the default bindings for Tk listbox widgets
  2433.   # and provides procedures that help in implementing those bindings.
  2434.   #
  2435. ! # @(#) listbox.tcl 1.13 95/08/22 08:49:50
  2436.   #
  2437.   # Copyright (c) 1994 The Regents of the University of California.
  2438.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2439. --- 3,9 ----
  2440.   # This file defines the default bindings for Tk listbox widgets
  2441.   # and provides procedures that help in implementing those bindings.
  2442.   #
  2443. ! # @(#) listbox.tcl 1.14 95/11/02 11:02:19
  2444.   #
  2445.   # Copyright (c) 1994 The Regents of the University of California.
  2446.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2447. ***************
  2448. *** 37,42 ****
  2449. --- 37,51 ----
  2450.       tkListboxBeginSelect %W [%W index @%x,%y]
  2451.       }
  2452.   }
  2453. + 
  2454. + # Ignore double clicks so that users can define their own behaviors.
  2455. + # Among other things, this prevents errors if the user deletes the
  2456. + # listbox on a double click.
  2457. + 
  2458. + bind Listbox <2> {
  2459. +     # Empty script
  2460. + }
  2461. + 
  2462.   bind Listbox <B1-Motion> {
  2463.       set tkPriv(x) %x
  2464.       set tkPriv(y) %y
  2465. *** ../tk4.0p2/./library/menu.tcl    Tue Aug 29 17:33:54 1995
  2466. --- ./library/menu.tcl    Fri Nov 24 14:51:33 1995
  2467. ***************
  2468. *** 4,10 ****
  2469.   # It also implements keyboard traversal of menus and implements a few
  2470.   # other utility procedures related to menus.
  2471.   #
  2472. ! # @(#) menu.tcl 1.54 95/08/29 17:33:53
  2473.   #
  2474.   # Copyright (c) 1992-1994 The Regents of the University of California.
  2475.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2476. --- 4,10 ----
  2477.   # It also implements keyboard traversal of menus and implements a few
  2478.   # other utility procedures related to menus.
  2479.   #
  2480. ! # @(#) menu.tcl 1.59 95/11/24 14:51:37
  2481.   #
  2482.   # Copyright (c) 1992-1994 The Regents of the University of California.
  2483.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2484. ***************
  2485. *** 102,112 ****
  2486.   
  2487.   # Must set focus when mouse enters a menu, in order to allow
  2488.   # mixed-mode processing using both the mouse and the keyboard.
  2489.   
  2490.   bind Menu <FocusIn> {}
  2491.   bind Menu <Enter> {
  2492.       set tkPriv(window) %W
  2493. !     focus %W
  2494.   }
  2495.   bind Menu <Leave> {
  2496.       tkMenuLeave %W %X %Y %s
  2497. --- 102,118 ----
  2498.   
  2499.   # Must set focus when mouse enters a menu, in order to allow
  2500.   # mixed-mode processing using both the mouse and the keyboard.
  2501. + # Don't set the focus if the event comes from a grab release,
  2502. + # though:  such an event can happen after as part of unposting
  2503. + # a cascaded chain of menus, after the focus has already been
  2504. + # restored to wherever it was before menu selection started.
  2505.   
  2506.   bind Menu <FocusIn> {}
  2507.   bind Menu <Enter> {
  2508.       set tkPriv(window) %W
  2509. !     if {"%m" != "NotifyUngrab"} {
  2510. !     focus %W
  2511. !     }
  2512.   }
  2513.   bind Menu <Leave> {
  2514.       tkMenuLeave %W %X %Y %s
  2515. ***************
  2516. *** 118,130 ****
  2517.       tkMenuButtonDown %W
  2518.   }
  2519.   bind Menu <ButtonRelease> {
  2520. !     tkMenuInvoke %W
  2521.   }
  2522.   bind Menu <space> {
  2523. !     tkMenuInvoke %W
  2524.   }
  2525.   bind Menu <Return> {
  2526. !     tkMenuInvoke %W
  2527.   }
  2528.   bind Menu <Escape> {
  2529.       tkMenuEscape %W
  2530. --- 124,136 ----
  2531.       tkMenuButtonDown %W
  2532.   }
  2533.   bind Menu <ButtonRelease> {
  2534. !     tkMenuInvoke %W 1
  2535.   }
  2536.   bind Menu <space> {
  2537. !     tkMenuInvoke %W 0
  2538.   }
  2539.   bind Menu <Return> {
  2540. !     tkMenuInvoke %W 0
  2541.   }
  2542.   bind Menu <Escape> {
  2543.       tkMenuEscape %W
  2544. ***************
  2545. *** 479,486 ****
  2546.   #
  2547.   # Arguments:
  2548.   # w -            Name of the menu widget.
  2549.   
  2550. ! proc tkMenuInvoke w {
  2551.       if {[$w type active] == "cascade"} {
  2552.       $w postcascade active
  2553.       set menu [$w entrycget active -menu]
  2554. --- 485,506 ----
  2555.   #
  2556.   # Arguments:
  2557.   # w -            Name of the menu widget.
  2558. + # buttonRelease -    1 means this procedure is called because of
  2559. + #            a button release;  0 means because of keystroke.
  2560.   
  2561. ! proc tkMenuInvoke {w buttonRelease} {
  2562. !     global tkPriv
  2563. ! 
  2564. !     if {$buttonRelease && ($tkPriv(window) == "")} {
  2565. !     # Mouse was pressed over a menu without a menu button, then
  2566. !     # dragged off the menu (possibly with a cascade posted) and
  2567. !     # released.  Unpost everything and quit.
  2568. ! 
  2569. !     $w postcascade none
  2570. !     $w activate none
  2571. !     tkMenuUnpost $w
  2572. !     return
  2573. !     }
  2574.       if {[$w type active] == "cascade"} {
  2575.       $w postcascade active
  2576.       set menu [$w entrycget active -menu]
  2577. ***************
  2578. *** 599,604 ****
  2579. --- 619,625 ----
  2580.       return
  2581.       }
  2582.       set length [expr [$menu index last]+1]
  2583. +     set quitAfter $length
  2584.       set active [$menu index active]
  2585.       if {$active == "none"} {
  2586.       set i 0
  2587. ***************
  2588. *** 606,611 ****
  2589. --- 627,638 ----
  2590.       set i [expr $active + $count]
  2591.       }
  2592.       while 1 {
  2593. +     if {$quitAfter <= 0} {
  2594. +         # We've tried every entry in the menu.  Either there are
  2595. +         # none, or they're all disabled.  Just give up.
  2596. + 
  2597. +         return
  2598. +     }
  2599.       while {$i < 0} {
  2600.           incr i $length
  2601.       }
  2602. ***************
  2603. *** 621,626 ****
  2604. --- 648,654 ----
  2605.           return
  2606.       }
  2607.       incr i $count
  2608. +     incr quitAfter -1
  2609.       }
  2610.       $menu activate $i
  2611.       $menu postcascade $i
  2612. *** ../tk4.0p2/./library/prolog.ps    Thu Jun  8 13:18:31 1995
  2613. --- ./library/prolog.ps    Thu Nov  9 11:35:02 1995
  2614. ***************
  2615. *** 3,9 ****
  2616.   
  2617.   % This is a standard prolog for Postscript generated by Tk's canvas
  2618.   % widget.
  2619. ! % @(#) prolog.ps 1.2 94/12/09 10:53:18
  2620.   
  2621.   % The definitions below just define all of the variables used in
  2622.   % any of the procedures here.  This is needed for obscure reasons
  2623. --- 3,9 ----
  2624.   
  2625.   % This is a standard prolog for Postscript generated by Tk's canvas
  2626.   % widget.
  2627. ! % @(#) prolog.ps 1.3 95/11/09 11:35:04
  2628.   
  2629.   % The definitions below just define all of the variables used in
  2630.   % any of the procedures here.  This is needed for obscure reasons
  2631. ***************
  2632. *** 71,82 ****
  2633.       ] def
  2634.   } if
  2635.   
  2636. ! % Override the setfont procedure with a new procedure that re-encodes
  2637. ! % the font to use the ISO Latin-1 style.  The body of this procedure
  2638. ! % comes from Section 5.6.1 of the Postscript book.
  2639.   
  2640. ! /realsetfont /setfont load def
  2641. ! /setfont {
  2642.       dup length dict begin
  2643.       {1 index /FID ne {def} {pop pop} ifelse} forall
  2644.       /Encoding ISOLatin1Encoding def
  2645. --- 71,83 ----
  2646.       ] def
  2647.   } if
  2648.   
  2649. ! % font ISOEncode font
  2650. ! % This procedure changes the encoding of a font from the default
  2651. ! % Postscript encoding to ISOLatin1.  It's typically invoked just
  2652. ! % before invoking "setfont".  The body of this procedure comes from
  2653. ! % Section 5.6.1 of the Postscript book.
  2654.   
  2655. ! /ISOEncode {
  2656.       dup length dict begin
  2657.       {1 index /FID ne {def} {pop pop} ifelse} forall
  2658.       /Encoding ISOLatin1Encoding def
  2659. ***************
  2660. *** 88,94 ****
  2661.       % for the font.
  2662.   
  2663.       /Temporary exch definefont
  2664. -     realsetfont
  2665.   } bind def
  2666.   
  2667.   % StrokeClip
  2668. --- 89,94 ----
  2669. *** ../tk4.0p2/./doc/canvas.n    Wed Jun 28 16:29:59 1995
  2670. --- ./doc/canvas.n    Sat Oct 28 14:36:07 1995
  2671. ***************
  2672. *** 5,11 ****
  2673.   '\" See the file "license.terms" for information on usage and redistribution
  2674.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2675.   '\" 
  2676. ! '\" @(#) canvas.n 1.39 95/06/28 16:29:58
  2677.   '\"
  2678.   .so man.macros
  2679.   .TH canvas n 4.0 Tk "Tk Built-In Commands"
  2680. --- 5,11 ----
  2681.   '\" See the file "license.terms" for information on usage and redistribution
  2682.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2683.   '\" 
  2684. ! '\" @(#) canvas.n 1.40 95/10/28 14:36:10
  2685.   '\"
  2686.   .so man.macros
  2687.   .TH canvas n 4.0 Tk "Tk Built-In Commands"
  2688. ***************
  2689. *** 709,715 ****
  2690.   or \fBp\fR or nothing for printer's points (1/72 inch).
  2691.   Defaults to the height of the printed area on the screen.
  2692.   If both \fB\-pageheight\fR and \fB\-pagewidth\fR are specified then
  2693. ! the scale factor from the later option is used (non-uniform scaling
  2694.   is not implemented).
  2695.   .TP
  2696.   \fB\-pagewidth \fIsize\fR
  2697. --- 709,715 ----
  2698.   or \fBp\fR or nothing for printer's points (1/72 inch).
  2699.   Defaults to the height of the printed area on the screen.
  2700.   If both \fB\-pageheight\fR and \fB\-pagewidth\fR are specified then
  2701. ! the scale factor from \fB\-pagewidth\fR is used (non-uniform scaling
  2702.   is not implemented).
  2703.   .TP
  2704.   \fB\-pagewidth \fIsize\fR
  2705. ***************
  2706. *** 718,724 ****
  2707.   \fISize\fR has the same form as for \fB\-pageheight\fR.
  2708.   Defaults to the width of the printed area on the screen.
  2709.   If both \fB\-pageheight\fR and \fB\-pagewidth\fR are specified then
  2710. ! the scale factor from the later option is used (non-uniform scaling
  2711.   is not implemented).
  2712.   .TP
  2713.   \fB\-pagex \fIposition\fR
  2714. --- 718,724 ----
  2715.   \fISize\fR has the same form as for \fB\-pageheight\fR.
  2716.   Defaults to the width of the printed area on the screen.
  2717.   If both \fB\-pageheight\fR and \fB\-pagewidth\fR are specified then
  2718. ! the scale factor from \fB\-pagewidth\fR  is used (non-uniform scaling
  2719.   is not implemented).
  2720.   .TP
  2721.   \fB\-pagex \fIposition\fR
  2722. *** ../tk4.0p2/./doc/wish.1    Wed Jun  7 21:15:51 1995
  2723. --- ./doc/wish.1    Mon Sep 25 14:38:11 1995
  2724. ***************
  2725. *** 1,11 ****
  2726.   '\"
  2727.   '\" Copyright (c) 1991-1994 The Regents of the University of California.
  2728. ! '\" Copyright (c) 1994 Sun Microsystems, Inc.
  2729.   '\"
  2730.   '\" See the file "license.terms" for information on usage and redistribution
  2731.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2732.   '\" 
  2733. ! '\" @(#) wish.1 1.19 95/06/07 21:15:41
  2734.   '\" 
  2735.   .so man.macros
  2736.   .TH wish 1 4.0 Tk "Tk Applications"
  2737. --- 1,11 ----
  2738.   '\"
  2739.   '\" Copyright (c) 1991-1994 The Regents of the University of California.
  2740. ! '\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2741.   '\"
  2742.   '\" See the file "license.terms" for information on usage and redistribution
  2743.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2744.   '\" 
  2745. ! '\" @(#) wish.1 1.20 95/09/25 14:38:12
  2746.   '\" 
  2747.   .so man.macros
  2748.   .TH wish 1 4.0 Tk "Tk Applications"
  2749. ***************
  2750. *** 29,34 ****
  2751. --- 29,39 ----
  2752.   Execute all X server commands synchronously, so that errors
  2753.   are reported immediately.  This will result in much slower
  2754.   execution, but it is useful for debugging.
  2755. + .IP "\fB\-\|\-\fR" 20
  2756. + Pass all remaining arguments through to the script's \fBargv\fR
  2757. + variable without interpreting them.
  2758. + This provides a mechanism for passing arguments such as \fB\-name\fR
  2759. + to a script instead of having \fBwish\fR interpret them.
  2760.   .BE
  2761.   
  2762.   .SH DESCRIPTION
  2763. ***************
  2764. *** 91,99 ****
  2765.   not including the options described above.
  2766.   .TP 15
  2767.   \fBargv\fR
  2768. ! Contains a Tcl list whose elements are the \fIarg\fR arguments (not
  2769. ! including the options described above), in order, or an empty string
  2770. ! if there are no \fIarg\fR arguments.
  2771.   .TP 15
  2772.   \fBargv0\fR
  2773.   Contains \fIfileName\fR if it was specified.
  2774. --- 96,105 ----
  2775.   not including the options described above.
  2776.   .TP 15
  2777.   \fBargv\fR
  2778. ! Contains a Tcl list whose elements are the \fIarg\fR arguments
  2779. ! that follow a \fB\-\|\-\fR option or don't match any of the
  2780. ! options described in OPTIONS above, in order, or an empty string
  2781. ! if there are no such arguments.
  2782.   .TP 15
  2783.   \fBargv0\fR
  2784.   Contains \fIfileName\fR if it was specified.
  2785. *** ../tk4.0p2/./tests/geometry.test    Tue Feb 21 16:36:58 1995
  2786. --- ./tests/geometry.test    Mon Nov 27 13:19:36 1995
  2787. ***************
  2788. *** 8,14 ****
  2789.   # See the file "license.terms" for information on usage and redistribution
  2790.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2791.   #
  2792. ! # @(#) geometry.test 1.5 95/02/21 16:36:58
  2793.   
  2794.   if {[info procs test] != "test"} {
  2795.       source defs
  2796. --- 8,14 ----
  2797.   # See the file "license.terms" for information on usage and redistribution
  2798.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2799.   #
  2800. ! # @(#) geometry.test 1.6 95/11/27 13:19:40
  2801.   
  2802.   if {[info procs test] != "test"} {
  2803.       source defs
  2804. ***************
  2805. *** 244,249 ****
  2806. --- 244,250 ----
  2807.       after 500 {set x 1}
  2808.       tkwait variable x
  2809.       wm deiconify .t
  2810. +     update
  2811.       winfo ismapped .t.quit
  2812.   } {1}
  2813.   catch {destroy .t}
  2814. *** ../tk4.0p2/./tests/textDisp.test    Wed Jun 28 14:52:05 1995
  2815. --- ./tests/textDisp.test    Mon Nov 27 13:22:03 1995
  2816. ***************
  2817. *** 7,13 ****
  2818.   # See the file "license.terms" for information on usage and redistribution
  2819.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2820.   #
  2821. ! # @(#) textDisp.test 1.31 95/06/28 14:52:03
  2822.   
  2823.   if {[string compare test [info procs test]] == 1} then \
  2824.     {source defs}
  2825. --- 7,13 ----
  2826.   # See the file "license.terms" for information on usage and redistribution
  2827.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2828.   #
  2829. ! # @(#) textDisp.test 1.32 95/11/27 13:22:07
  2830.   
  2831.   if {[string compare test [info procs test]] == 1} then \
  2832.     {source defs}
  2833. ***************
  2834. *** 1410,1416 ****
  2835.       .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx"
  2836.       .t xview moveto .3
  2837.       .t xview
  2838. ! } {0.285714 0.642857}
  2839.   test textDisp-14.8 {TkTextXviewCmd procedure} {
  2840.       .t delete 1.0 end
  2841.       .t insert end xxxxxxxxx\n
  2842. --- 1410,1416 ----
  2843.       .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx"
  2844.       .t xview moveto .3
  2845.       .t xview
  2846. ! } {0.303571 0.660714}
  2847.   test textDisp-14.8 {TkTextXviewCmd procedure} {
  2848.       .t delete 1.0 end
  2849.       .t insert end xxxxxxxxx\n
  2850.